Help for this page

Select Code to Download


  1. or download this
    package My::Filter;
use Filter::Simple;
...
sub report{ return $t->report() }

1;
  2. or download this
    #! perl -slw
use strict;
...

print '=' x 20, 'Timing of regexs in ', $0, '=' x 20;
print My::Filter::report(); # << Generate report
  3. or download this
    C:\test>test
abcdefghijklmnopqrstuvwxyz
...
2000 trials of pqr (290.000ms total), 145us/trial

5000 trials of (\G(?:.{3})+?)(?<=...)(.)(.) (820.000ms total), 164us/t
+rial