| Refresh | Home EGTry.com


use strict;
use Time::HiRes qw(gettimeofday tv_interval);

my ($sec1, $micro1)=gettimeofday();
print "start: second $sec1, micro-second $micro1\n";
#start: second 1302882969, micro-second 850559


my ($sec2, $micro2)=gettimeofday();
print "end: second $sec2, micro-second $micro2\n";
#end: second 1302882969, micro-second 850589

my $diff=tv_interval([$sec1, $micro1], [$sec2, $micro2]);
print "time difference:  $diff\n";
#time difference:  0.000145