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="aaaa a a b aaaa";
>
> while (substr($str,$p)~~/(a)|(b)/) #~~ is instread of =~
> {
> print "match found at $p>>{$0 // "not found"}<< or >>{$2 // "not
> found"}<<\n"; #$0 denotes the first capturing group.(a)
> $p+=$/.to;
> }
>
> When I tried it to converter into pbc.
> D:\standalone\parrot-1.4.0>parrot rakudo-2009-07\p.pir p.pbc
> error:imcc:syntax error, unexpected PREG, expecting '(' ('$P80')
> in file 'rakudo-2009-07\p.pir' line 303
>
> Mp
>
Hi - thanks for the report, and sorry about the delay in responding.
The Perl 6 code in the sample above no longer compilers with rakudo:
maximum recursion depth exceeded
in 'Block::count' at line 5501:CORE.setting
in 'Block::count' at line 5505:CORE.setting
in 'Any::postcircumfix:<{ }>' at line 1
in <anon> at line 1
in 'Any::postcircumfix:<{ }>' at line 1
<SNIP>
If you can re-craft the example and open a new ticket, that'd be great.
Thanks!
--
Will "Coke" Coleda
