- or download this
(?(?{ print "$1 $2 $3\n" })(*FAIL)|(*ACCEPT))
- or download this
use 5.010; # need (?(?{ code }) pattern)
...
} # end for $rw
done_testing;
- or download this
c:\@Work\Perl\monks\kroki>perl permute_via_regex_1.pl
# perl version 5.014004
...
1..8
ok 9 - no warnings
1..9