I'm running into a problem where my code is not the bottleneck but the modules I "use" is.
How do I benchmark modules? I tried this:
#!perl -w use Benchmark; my $bench1 = new Benchmark; use strict; use CGI ':standard'; #use XML::Simple; use HTML::Entities; use LWP::UserAgent; use LWP::Simple 'get'; use HTTP::Cookies; use HTTP::Request::Common; my $bench2 = new Benchmark; print timestr timediff $bench2, $bench1;
... but it doesn't work (keeps printing 0s). Am I doing something wrong here? Or does perl load the modules even before my code gets interpreted?
I _know_ this is the bottleneck because running this script takes ~0.3s on my ActiveState/Win2K box and the entire script doesn't take much more than that. (and no, I'm not using an extremely slow hard drive ;-) )
Seriously, I'd like to know which one of these modules is the slowest so I can find a way around it ...
Thanks,
CBAS
In reply to Benchmarking modules by $CBAS
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |