my $mods_p = ''; my $mods_m = ''; ($opts{$_} ? $mods_p : $mods_m) .= $_ for qw( x i s m ); $re = qr/(?$mods_p-$mods_m:$re)/;
In reply to Re^3: Using Parse::RecDescent to parse Perl-ish strings without resorting to string eval
by ikegami
in thread Using Parse::RecDescent to parse Perl-ish strings without resorting to string eval
by polypompholyx
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |