Help for this page

Select Code to Download


  1. or download this
    $ time grep karl very_huge.file
nose cuke karl
...
user  0m2.165s
sys   0m0.362s
  2. or download this
    # open( my $fh, '<', 'very_huge.file' );
# my @result = mce_grep { /karl/ } $fh;
...

my @result = mce_grep_f { /karl/ } 'very_huge.file';
  3. or download this
    use MCE::Loop;
use Time::HiRes qw( time );
...

printf "Took %.3f seconds\n", time - $start;