Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use strict;
...
    }
)
__END__

Select or download this

I'll just post the summary output from cmpthese: (perl 5.6.1)

              Rate for_array      grep       for  grep_two
...
grep       90290/s        9%        --       -4%      -39%
for        94074/s       14%        4%        --      -37%
grep_two  148846/s       80%       65%       58%        --