Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
    first  => q[ f1( $_ ) for @args ],
    simple => q[ f2( $_ ) for @args ],
};
  2. or download this
    ok 1 - f0-f1-undef
ok 2 - f0-f2-undef
...
first   570/s     --   -14%   -45%
grep    661/s    16%     --   -36%
simple 1036/s    82%    57%     --
  3. or download this
    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,