On Fri Sep 04 00:06:21 2009, equinox wrote:
> Hi,
>
> I converted this into pir...using rakudo-2009-07.
>
> my $p=0;
> my $str=" a a b ";
>
> while (substr($str,$p)~~/(a)|(b)/) #~~ is instread of =~
> {
> print "match found at $p>>{$0 // "not found"}<< or >>{$2 // "not
> found"}<<\n"; #
# New Ticket Created by equinox
# Please include the string: [perl #68984]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=68984 >
Hi,
I converted this into pir...using rakudo-2009-07.
my $p=0;
my $str=" a a b ";
