Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
my $flag  = 1 if $var =~ /\G ($regex) /gcx;

print $flag ? '' : 'not ', "matches\n";
  2. or download this
    16:38 >perl 827_SoPW.pl
not matches

16:42 >