Help for this page

Select Code to Download


  1. or download this
    (?(?{ print "$1 $2 $3\n" })(*FAIL)|(*ACCEPT))
  2. or download this
    use 5.010;  # need (?(?{ code }) pattern)

...
    }  # end for $rw

done_testing;
  3. 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