[email protected] (Harry Putnam) writes:
> What surprised me is the that when I ran them prefaced with the `time'
> utility, I see the sloppy mess I wrote is nearly twice as fast.
I may have found a reason.
in the find sub {}
part you did two returns
return unless -f;
return unless /^\d+$/;
With one commented like so:
# return unless -f;
return unless /^\d+$/;
With that done, my code from OP is consistently about 1 second slower
over those 4.2 million msgs.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
