Help for this page

Select Code to Download


  1. or download this
    local our @results;

...
   (?{ push @results, ... })
   (?!)  # Backtrack to find next result.
/x;
  2. or download this
    perl -e"'abc' =~ /(.+)(?{ print qq{Result: $^N\n} })(?!)/
Result: abc
...
Result: bc
Result: b
Result: c
  3. or download this
    #!/usr/bin/perl
use strict;
...
})(?!)';

$str=~$re;
  4. or download this
    a1,b5,c8,d6,e3,f7,g2,h4
a1,b6,c8,d3,e7,f4,g2,h5
...
a8,b2,c5,d3,e1,f7,g4,h6
a8,b3,c1,d6,e2,f5,g7,h4
a8,b4,c1,d3,e6,f2,g7,h5