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 :)

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]

      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]

Back to Seekers of Perl Wisdom