perl - 在 Perl 中是否有更好的方法来确定耗时？

Question

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

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

Answer 1

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

如果您需要在功能方面“更好”的解决方案，那么这就是最好的解决方案。

如果您要求“更好”在“不那么尴尬”的符号意义上，那么请知道，在标量上下文中，Time::HiRes::gettimeofday() 将返回自纪元以来的 float 秒数(小数部分代表微秒)，就像 Time::HiRes::time() 一样。 (这是标准 time() 函数的一个很好的直接替代品。)

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

或者:

use Time::HiRes qw( time );

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