刚查了一下Time::HiRes的用法:它一般用来确定运行某个任务的所需的时间。
如:
use Time::HiRes qw(gettimeofday tv_interval);
my $start_time = [gettimeofday];
my $counter=0;
foreach (1..1000){
$counter++;
}
my $interval=tv_interval($start_time,[gettimeofday]);
print “it take the time : $interval seconds\n";
可获得任务运行时间毫秒级的时间精度。
阅读(1474) | 评论(0) | 转发(0) |