my $start_time = [Time::HiRes::gettimeofday()]; my $diff = Time::HiRes::tv_interval($start_time); print "\n\n$diff\n";
解决方法
可能。取决于你的意思是“更好”。
如果你在“更尴尬”的意义上要求一个“更好的”，那么在标量上下文中，Time :: HiRes :: gettimeofday()将返回从epoch开始的浮动秒数(小数部分表示微秒) ，就像Time::HiRes::time()(这是一个很好的替代标准的time()函数)。
my $start = Time::HiRes::gettimeofday();
...
my $end = Time::HiRes::gettimeofday();
printf("%.2f\n",$end - $start);
要么：
use Time::HiRes qw( time );
my $start = time();
...
my $end = time();
printf("%.2f\n",$end - $start);