[PerlChina] Re: 请问有专门计时的mo dule么？

Thu, 12 Feb 2009 22:02:39 -0800 

写了个简单的，见笑啦。

# Timeit.pm
package Timeit;

use strict;
use warnings;

use Exporter;

use base qw(Exporter);

our $VERSION = 0.01;

our @EXPORT_OK = qw(timeit);

sub timeit {
  my ($name, $code) = @_;

  my $now = time;

  if (ref $code eq 'CODE') {
    eval { $code->() };
  }
  else {
    eval $code;
  }

  my $elapsed = time - $now;

  return sprintf("$name elapsed: %02d:%02d:%02d\n", int($elapsed / 3600),
                 int(($elapsed % 3600) / 60),
                 int($elapsed % 60));
}

# test_timeit.pl
use strict;
use warnings;

use Timeit qw(timeit);

print timeit('sleep #1', sub { sleep 2; });
print timeit('sleep #2', "sleep 3");

# output
sleep #1 elapsed: 00:00:02
sleep #2 elapsed: 00:00:03

2009/2/13 Michael Zeng <[email protected]>:
> 比如 我要计算这个脚本/程序花了多少时间
>
> 但是Benchmark 计算的结果都是以  XX  wall clock  seconds 来计算的
>
> 有没有 计算出 得到以  $hour:$min:$seconds  为格式的？
>
>
> --
>             Yours Sincerely
>                     Zeng Hong
> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
 要在此论坛发帖，请发电子邮件到 [email protected]
 要退订此论坛，请发邮件至 [email protected]
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

回复