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/