有没有更好的方法来确定Perl的时间消耗？

发布时间：2020-12-15 21:25:57 所属栏目：大数据来源：网络整理

导读：my $start_time = [Time::HiRes::gettimeofday()];my $diff = Time::HiRes::tv_interval($start_time);print "nn$diffn"; 解决方法可能。取决于你的意思是“更好”。如果你在功能方面要求一个“更好”的解决方案，那么这就是它。如果你在“更尴尬”的

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

print "nn$diffn";

解决方法

可能。取决于你的意思是“更好”。

如果你在功能方面要求一个“更好”的解决方案，那么这就是它。

如果你在“更尴尬”的意义上要求一个“更好的”，那么在标量上下文中，Time :: HiRes :: gettimeofday()将返回从epoch开始的浮动秒数(小数部分表示微秒) ，就像Time::HiRes::time()(这是一个很好的替代标准的time()函数)。

my $start = Time::HiRes::gettimeofday();
...
my $end = Time::HiRes::gettimeofday();
printf("%.2fn",$end - $start);

要么：

use Time::HiRes qw( time );

my $start = time();
...
my $end = time();
printf("%.2fn",$end - $start);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!