thanks
On 2/13/09, Shu Cho <[email protected]> wrote: > > 写了个简单的，见笑啦。 > > # 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 > > > > > > > > > -- Yours Sincerely Zeng Hong --~--~---------~--~----~------------~-------~--~----~ 您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。 要在此论坛发帖，请发电子邮件到 [email protected] 要退订此论坛，请发邮件至 [email protected] 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 -~----------~----~----~----~------~----~------~--~---
