Help for this page

Select Code to Download


  1. or download this
    
#!/usr/bin/perl -w
...
$test =~ /(a(bc?)?)(??{unshift @matches, $^N})(?!)/;
print "@matches\n";
  2. or download this
    #!/usr/bin/perl -w

...
    ++$count;
    printf "%s\n", $match;
}