Perl Timer Code
http://stackoverflow.com/questions/656537/is-there-a-better-way-to-determine-elapsed-time-in-perl
http://www.perlmonks.org/?node_id=519091
3 different ways:
#!/usr/bin/perl -wT
use Time::HiRes;
use Time::HiRes qw( time );
my $start_time = [Time::HiRes::gettimeofday()];
my $start = Time::HiRes::gettimeofday();
my $start_a = time();
print "hey\n";
my $diff = Time::HiRes::tv_interval($start_time);
my $end = Time::HiRes::gettimeofday();
my $end_a = time();
print "diff 1 = $diff\n";
printf("diff 2 = %.6f\n", $end - $start);
printf("diff 3 = %.6f\n", $end_a - $start_a);
end code
From JR's : articles
64 words - 604 chars
created on
updated on
- #
source
- versions
Related articles
Yo-Perl Readme - Aug 19, 2014
Perl CGI setting headers - Oct 04, 2013
Web and mobile development using Perl, HTML5, CSS3, and JavaScript - May 28, 2013
Using Perl and Erlang - Jan 19, 2015
Perl Dancer Framework - Dec 19, 2013
more >>