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

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

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

最佳答案

可能吧。取决于您所说的“更好”。

如果您要使用功能寻求“更好”的解决方案，那就差不多了。

如果您要使用“不太尴尬”的表示法来请求一个“更好”的，那么请知道，在标量上下文中，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);

关于perl - 有没有更好的方法来确定Perl中的耗时？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/656537/