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

还可以尝试使用 Devel::DProf 来测试程序的性能，比如 CPAN 模块的里面关于 tar.gz 的处理模块的载入性能：

perl -d:DProf -MCPAN=shell -e 'shell'
dprofpp -g CPAN::Tarzip::BEGIN

只是输出的信息还值得仔细看看才能明白。

2009/2/13 Michael Zeng <galaxy2004@gmail.com>

thanks

 

On 2/13/09, Shu Cho <neatcho@gmail.com> 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 <galaxy2004@gmail.com>:
> 比如 我要计算这个脚本/程序花了多少时间
>
> 但是Benchmark 计算的结果都是以  XX  wall clock  seconds 来计算的
>
> 有没有 计算出 得到以  $hour:$min:$seconds  为格式的？
>
>
> --
>             Yours Sincerely
>                     Zeng Hong
> >
>


--
            Yours Sincerely
                    Zeng Hong

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

-~----------~----~----~----~------~----~------~--~---