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

#programming - #perl

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



A     A     A     A     A

© 2013-2017 JotHut - Online notebook

current date: Mar 29, 2024 - 1:48 a.m. EDT