How to measure execution time in Perl

[gasho]

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

StartToMesure

perl code

StopToMesure

print "ExecutionTIme"

[kennethk]

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";

[moritz]

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.

[rcaputo]

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.