Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
        qreg  => sub{ $txt =~ $rgx },
       },
      );
    
  2. or download this
    % test.pl
    Benchmark: timing 1000000 iterations of match, qreg...
         match:  1 wallclock secs ( 0.82 usr +  0.00 sys =  0.82 CPU) @ 12
    +19512.20/s (n=1000000)
          qreg:  0 wallclock secs ( 0.73 usr +  0.00 sys =  0.73 CPU) @ 13
    +69863.01/s (n=1000000)