Help for this page

Select Code to Download


  1. or download this
    use re 'debug';
use strict;
...
@rere = /(\w+)\s+(\w+)/;
$rere = "(".join(",",@rere).")";
print "\$1 = $1, \$2 = $2, \$rere = $rere\n";
  2. or download this
    Compiling REx `(\w+)\s+(\w+)'
size 15 first at 4
...
$1 = foo, $2 = bar, $rere = (foo,bar)
Freeing REx: `(\w+)\s+(\w+)'
Freeing REx: `(\w+)\s+(\w+)'