How to measure execution time in Perl

gasho has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, Is there a perl function that measures execution time of Perl script , Thanks?


StartToMesure

perl code

StopToMesure

print "ExecutionTIme"
[download]

(: Life is short enjoy it :)

Comment on How to measure execution time in Perl Download Code

Replies are listed 'Best First'.
Re: How to measure execution time in Perl by kennethk (Abbot) on Jan 11, 2010 at 21:29 UTC
CPAN is your friend: Benchmark Time In particular, see Benchmark and Time::HiRes. A quick and dirty solution is also the built-in time, which will give you second-level granularity, a la: `#!/usr/bin/perl use strict; use warnings; my $start = time; # Do stuff my $duration = time - $start; print "Execution time: $duration s\n";` [download]	[reply] [d/l]
Re: How to measure execution time in Perl by moritz (Cardinal) on Jan 11, 2010 at 21:54 UTC
You might also be interested in using a profile. Devel::NYTProf is a very good and informative profiler, it makes it quite easy to spot bottlenecks in your programs. Perl 6 - links to (nearly) everything that is Perl 6.	[reply]
Re^2: How to measure execution time in Perl by rcaputo (Chaplain) on Jan 11, 2010 at 22:05 UTC
I'd just like to add that Devel::NYTProf supports multiple ways to measure the time it takes to run some code. The documentation is great, and it covers the benefits and problems associated with each profiling method. You can learn a lot without ever using the module. `-- Rocco Caputo - http://poe.perl.org/ - irc://irc.perl.org/poe`	[reply]