Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
regex   9225092/s     --   -44%   -87%
substr 16556291/s    79%     --   -77%
ord    73529412/s   697%   344%     --

Select or download this

my @strs = ("1234  pass  25  30 1",
        "      pass  25  30 2",
...
$ perl test.pl
Matched:       pass  25  30 2
Matched:       pass  35  45 2