karls-mac-mini:monks karl$ ls -hl very_huge.file
-rw-r--r-- 1 karl karl 2,0G 23 Mai 19:38 very_huge.file
karls-mac-mini:monks karl$ tail very_huge.file
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
Lorem ipsum kizuaheli
nose cuke karl
karls-mac-mini:monks karl$ wc -l very_huge.file
100000001 very_huge.file
####
#!/usr/bin/env perl
use strict;
use warnings;
use MCE::Grep;
use Data::Dump;
use Time::HiRes qw (time);
MCE::Grep::init( { max_workers => 4 } );
my $start = time;
open( my $fh, '<', 'very_huge.file' );
my @result = mce_grep { /karl/ } $fh;
close $fh;
printf "Took %.3f seconds\n", time - $start;
dd \@result;
__END__
karls-mac-mini:monks karl$ ./huge.pl
Took 29.690 seconds
["nose cuke karl\n"]
##
##
karls-mac-mini:monks karl$ time grep karl very_huge.file
nose cuke karl
real 0m2.563s
user 0m2.176s
sys 0m0.309s
##
##
PID Prozessname Benutzer % CPU Physikal. Speic Virt. Speicher
1065 perl karl 12,7 10,3 MB 2,33 GB
1068 perl karl 83,7 3,9 MB 2,33 GB
1069 perl karl 84,6 3,9 MB 2,33 GB
1070 perl karl 83,5 3,9 MB 2,33 GB
1071 perl karl 84,0 3,9 MB 2,33 GB