Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
warn "Found $count matches in (secs): ", time() - $start, 
    ( $MEM ? ' Mem: ' . mem() : () ), $/;
  2. or download this
    #! perl -slw
use strict;
...
close SEQ;
warn "Found $count matches in (secs): ", $elapsed, 
    ( $MEM ? ' Mem: ' . mem() : () ), $/;
  3. or download this
    #! perl -slw
use strict;
...
close SEQ;
warn "Found $count matches in (secs): ", $elapsed, 
    ( $MEM ? ' Mem: ' . mem() : () ), $/;
  4. or download this
    #! perl -slw
use strict;
...
        @{ $tests{ $test }{ $_ } }{ qw[ found time mem ] }
        for @ARGV;
}