用Devel::SmallProf测量Perl函数的执行时间

http://tech.idv2.com/2006/10/03/perl-benchmark-by-devel-smallprof/

用Devel::SmallProf测量Perl函数的执行时间

版权声明：可以任意转载，但转载时必须标明原作者charlee、原始链接http://tech.idv2.com/2006/10/03/perl-benchmark-by-devel-smallprof/以及本声明。

Devel::SmallProf 是个很好用的模块，可以方便地测量出代码每一行的执行时间，以便进一步优化。

例如以下程序，文件名为 prof_sample.pl。

#!/usr/bin/perl
my $str = "0";
for (my $i = 0; $i < 100; $i++) {
 $str =~ s/\d+/($&+1)/e;
 print $str."\n";
}

该程序的功能是输出整数 1 到 100。当然实际写程序时可不要用这么低效率的方法。 安装 Devel::SmallProf 之后我们来测量一下它每一行代码的执行时间。

perl -d:SmallProf prof_sample.pl

执行之后会在当前目录下生成一个 smallprof.out 文件，其内容如下：

           ================ SmallProf version 1.15 ================
                          Profile of prof_sample.pl                   Page 1
      =================================================================
   count wall tm  cpu time line
       0 0.000000 0.000000     1:#!/usr/bin/perl
       0 0.000000 0.000000     2:
       1 0.000006 0.000000     3:my $str = "0";
     101 0.006418 0.010000     4:for (my $i = 0; $i < 100; $i++) {
     200 0.002581 0.000000     5: $str =~ s/\d+/($&+1)/e;
     100 0.001509 0.000000     6: print $str."\n";
       1 0.000003 0.000000     7:}

前三列的数字分别为执行次数、消耗时间、消耗CPU时间。

如果你的程序使用 use 语句引用了其他模块，那么所有被引用的程序都将被分析，生成一个长长的报告。这时可以使用下面的命令来迅速找到耗时最长的命令。

sort -k 2nr,2 smallprof.out | less