在 Perl 中是否有更好的方法来确定经过的时间？

my $start_time = [Time::HiRes::gettimeofday()];
my $diff = Time::HiRes::tv_interval($start_time);

print "\n\n$diff\n";

可能吧。取决于你所说的“更好”是什么意思。

如果您寻求“更好”的解决方案在功能方面，那么这就是差不多了。

如果你要求“更好”在“不太尴尬”符号的意义上，然后知道，在标量环境中，Time::HiRes::gettimeofday()将返回自纪元以来的浮动秒数（小数部分代表微秒），就像Time::HiRes::time() http://perldoc.perl.org/Time/HiRes.html（这是标准的一个很好的直接替代品time()功能。）

my $start_time = Time::HiRes::gettimeofday();
...
my $stop_time = Time::HiRes::gettimeofday();
printf("%.2f\n", $stop_time - $start_time);

or:

use Time::HiRes qw( time );

my $begin_time = time();
...
my $end_time = time();
printf("%.2f\n", $end_time - $begin_time);