Help for this page

Select Code to Download


  1. or download this
    my $foo="regexp";
my @matches = $foo =~ /(re)ge(xp)/;
...
my $regex=qr{(re)ge(xp)};
my @matches = $foo =~ $regex;
  2. or download this
    > perl -we'use strict;use P;
my $regex=qr{(re)ge(xp)};
...
P "matches=%s, 0=%s, 1=%s", \@matches, \@matches0, \@matches1; 
'
matches=["re", "xp"], 0=["re", "xp", "re", "xp"], 1=["re", "xp", "re",
+ "xp"]