[TriLUG] What's an effective method for timing a perl script

[William Sutton]

I'm a little more curious about the application of this than is contained 
at first glance in the description.  Are you trying to time the entire 
process or individual file deletions?  If the whole process, then when you 
run it from the command line, you could just do

$ time my_process.pl

and when it finishes off, you should see something like

real    0m0.004s
user    0m0.000s
sys     0m0.000s

fwiw...William

On Fri, 15 Apr 2005, Matt Frye wrote:

> > my $startTime = time;
> > while(glob('./*/Recent/*')){unlink $_}
> > print time - $startTime,"\n";
> 
> Cool, thanks.  Time:HiRes isn't necessary, in fact neither is adding
> stats to my perfectly effective code, but the manager wants to see
> them.  Go figure.
> 
> MPF
> --
> TriLUG mailing list        : http://www.trilug.org/mailman/listinfo/trilug
> TriLUG Organizational FAQ  : http://trilug.org/faq/
> TriLUG Member Services FAQ : http://members.trilug.org/services_faq/
> TriLUG PGP Keyring         : http://trilug.org/~chrish/trilug.asc
> 
>