sub {
printf 'regex: ';
my $mask = shift;
my $re = '^' . join('', map $_ ? '(.)' : '.', split '', $mask
+) . '$';
return sub {
my $fh = shift;
my $out;
my $count = 0;
$out = join( '', m[$re]o ), ++$count while <$fh>;
$count;
}
},
__END__
C:\test>1023727 -OPT=4
regex: Took 274.157906 seconds for 2606 records (9.505471 recs/second)
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|