12,6 min on my side with a newer perl, same distro like yours :
:perl -v
This is perl 5, version 22, subversion 1 (v5.22.1) built for MSWin32-x
+64-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2015, Larry Wall
Binary build 2201 [299574] provided by ActiveState http://www.ActiveSt
+ate.com
Built Jan 4 2016 12:12:58
Could you give me your time with this code and the same file (http://mab.to/tbT8VsPDm) perl demo.pl
open (FH, '<', "../Tests/10-million-combos.txt");
$counter=0;
$counter2=0;
while (<FH>) {
if (/123456$/) {++$counter2;}
}
print "\n";
print "Num. Line : $. - Occ : $counter2\n";
close FH;
Thanks.
|