in reply to Making this script process 56,000 lines 5 times faster
To me it seems that by rebuilding grep's and awk's "line-by-line" processing you are taking Perl's drawbacks(starting the interpreter) but you don't profit from its power.
Why not loop over the response directly using the /g modifier:
Why not loop over the response directly using the /g modifier:
while($response =~ /(\n0\.0\.0\.0)(\s)([\w\.]+?)\s+/g ) { print ".... $3 ..."; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Making this script process 56,000 lines 5 times faster
by kris004 (Initiate) on Mar 22, 2018 at 18:23 UTC | |
by LanX (Saint) on Mar 22, 2018 at 18:49 UTC | |
by kris004 (Initiate) on Mar 22, 2018 at 18:53 UTC | |
by LanX (Saint) on Mar 22, 2018 at 18:58 UTC | |
by kris004 (Initiate) on Mar 22, 2018 at 19:03 UTC |
In Section
Seekers of Perl Wisdom