perl 的调试和性能测试

Myth丶恋晨 2024-04-19 14:09 59阅读 0赞

perl程序的调试，以前玩php都是print,var\_dump()，firebug之类来调试。在perl中，也有很多来方法我们调试的。在我看来调试分二种，一种是功能调试（排错之类保证功能完整）.一种是性能调试。

## **功能调试** ##

**1. 最常用的方法**

(1. print:这个用户就不用写了吧

(2. 模块: Data::Dumper  
这个使用很容易，主要就是使用Dumper的函数做输出

#!/usr/bin/perl  use strict;  use Data::Dumper;    my $hash = {          foo => 'test1',          bar => {              foo1 => 'test2',                  }      };    print Dumper($hash);

这个会非常非常清楚的输出数据结构的信息:

$VAR1 = {            'bar' => {                       'foo1' => 'test2'                     },            'foo' => 'test1'          };

(3 模块:Smart::Comments  
这个模块就更加好用了，伟大的CPAN…..这个只需要\#\#\#加上后面的变量就能输出变量中的信息。你可以在调试时打开，调试完了就关掉。超爽。

#!/usr/bin/perl  use strict;  use Smart::Comments;    my $hash = {          foo => 'test1',          bar => {              foo1 => 'test2',                  }      };    ### hash: $hash

见到上面\#\#\#后面的内容没，这样很不错吧。。这个更新清楚的打印出数据结构

### hash: {  ###         bar => {  ###                  foo1 => 'test2'  ###                },  ###         foo => 'test1'  ###       }

**(2 perl的调试器**

perl -d yourperl.pl

\-s Step 运行一行,跟踪进入子程序  
\-n Next 运行一行  
\-r Return 运行到当前子程序结束  
\-p 变量名 查看变量  
\-x 变量名 查看变量,友好格式(hash用引用)  
\-l/-/w 列出前后的代码  
\-c 行号 执行到"行号"  
\-c 执行,直到遇到断点  
\-b 行号 设置断点(b 子程序名)  
\-b 行号 条件 设置条件断点  
\-d 行号 去除"行号"处的断点  
\-L 列出所有的断点  
\-t 跟踪执行

(3 出错信号

这个不在详细写了。在我的另一个文章中，perl中的并发和信号中

### 性能调试 ###

这个晚点在写困死了，其它下次写

(1. test模块

(2. Devel::Coverage模块

perl -d:Coverage yourperl.pl

这个主要可以测试到代码的覆盖范围。分支的运行情况。

(3. Devel::SmallProf模块

这个模块会生成非常不错的文本文件samllprof.out来显示各行运行的时间，真实时间和cpu时间。它的精度要求好些所以需要Time::HiRes这个模块.

perl -d:SmallProf yourperl.pl

暂时关闭和打开profile:

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <span style="font-family:NSimsun;"><code>$DB</code><code>::profile = 0;</code></span> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

这之间的代码不会被SmallProf跟踪

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <span style="font-family:NSimsun;"><code>$DB</code><code>::profile = 1;</code></span> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

指定要跟踪的模块名称,主程序用’main’表示,例如

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <code><span style="font-family:NSimsun;">use</span></code> 
      <code><span style="font-family:NSimsun;">Data::Dumper; </span></code> 
     </div> 
     <div> 
      <code><span style="font-family:NSimsun;">use</span></code> 
      <code><span style="font-family:NSimsun;">TK; </span></code> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>%DB</code><code>::</code><code>package</code></span> 
      <span style="font-family:NSimsun;"><code>= (</code><code>'main'</code></span> 
      <code><span style="font-family:NSimsun;">=&gt; 1, </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">'Data::Dumper'</span></code> 
      <code><span style="font-family:NSimsun;">=&gt; 1);</span></code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

只跟踪主程序和Data::Dumper的代码执行情况 不列出执行计数为0的行

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <span style="font-family:NSimsun;"><code>$DB</code><code>::drop_zeros = 1;</code></span> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

(4. **Devel::DProf 模块来以函数为范围测试 Perl 程序的性能**

perl -d:DProf yourperl.pl

这个和上面的作者大多相同，但这个会生成自己的格式文件，可以用它来画图之类.

使用 dprofpp 来查看输出是怎么样的

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <code><span style="font-family:NSimsun;">$dprofpp tmon.out </span></code> 
     </div> 
     <div> 
      <code><span style="font-family:NSimsun;">Total Elapsed Time = 2.447954 Seconds </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">User+System Time = 2.437954 Seconds </span></code> 
     </div> 
     <div> 
      <code><span style="font-family:NSimsun;">Exclusive Times </span></code> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>%Time ExclSec CumulS </code><code>#Calls sec/call Csec/c Name </code></span> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">88.1 2.149 2.164 1 2.1488 2.1645 main::parselog </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">2.87 0.070 0.119 10 0.0070 0.0119 Spreadsheet::WriteExcel::Workbook: </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">:BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">2.05 0.050 0.257 11 0.0045 0.0234 main::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">1.23 0.030 0.149 8 0.0037 0.0186 Spreadsheet::WriteExcel::WorkbookB </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">ig::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.82 0.020 0.020 10 0.0020 0.0020 Spreadsheet::WriteExcel::Worksheet </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.82 0.020 0.020 154 0.0001 0.0001 Perl6::Junction::One::str_eq </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 1 0.0100 0.0100 Smart::Comments::__ANON__ </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 11 0.0009 0.0009 DynaLoader::dl_find_symbol </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 5 0.0020 0.0020 Perl6::Junction::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 6 0.0017 0.0017 YAML::Syck::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 5 0.0020 0.0020 IO::Seekable::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.010 6 0.0017 0.0016 Encode::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.020 5 0.0020 0.0039 Spreadsheet::WriteExcel::OLEwriter </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.020 6 0.0017 0.0033 Filter::Simple::BEGIN </span></code> 
     </div> 
     <div> 
      <code></code> 
      <code><span style="font-family:NSimsun;">0.41 0.010 0.030 10 0.0010 0.0030 Smart::Comments::BEGIN</span></code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

(5 Devel::FastProf

使用

perl -d:FastProf filename.pl

这个是需向行的，可以见到每行花的时间，需要输出测试的结果用 fprofpp -t 10, 输出如下

[?][Link 1]

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div> 
     <div> 
      <code><span style="font-family:NSimsun;"># fprofpp output format is: </span></code> 
     </div> 
     <div> 
      <code><span style="font-family:NSimsun;"># filename:line time count: source </span></code> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:321 4.44711 1321093: </code><code>return</code></span> 
      <span style="font-family:NSimsun;"><code>$self</code><code>-&gt;{block}{ </code><code>$bindex</code><code>}{ </code><code>$pindex</code><code>}{ </code><code>$key</code><code>}; </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:96 3.15971 1319500: </code><code>if</code></span> 
      <span style="font-family:NSimsun;"><code>( </code><code>exists</code></span> 
      <span style="font-family:NSimsun;"><code>$fatchPool</code><code>{ </code><code>$md5url</code><code>}{ </code><code>$key</code><code>} ){ </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>/usr/</code><code>local</code><code>/share/perl/5.10.1/POE/Loop/</code><code>Select</code><code>.pm:199 3.00868 1633: </code><code>my</code></span> 
      <code><span style="font-family:NSimsun;">$hits</span></code> 
      <span style="font-family:NSimsun;"><code>= CORE::</code><code>select</code><code>( </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:94 2.47519 1319500: </code><code>my</code></span> 
      <span style="font-family:NSimsun;"><code>(</code><code>$md5url</code><code>, </code><code>$bindex</code><code>, </code><code>$pindex</code><code>) = </code><code>@_</code><code>; </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:95 2.45544 1319500: </code><code>my</code></span> 
      <code><span style="font-family:NSimsun;">$key</span></code> 
      <span style="font-family:NSimsun;"><code>= </code><code>$bindex</code></span> 
      <span style="font-family:NSimsun;"><code>. </code><code>'|'</code></span> 
      <span style="font-family:NSimsun;"><code>. </code><code>$pindex</code><code>; </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:320 2.42175 1321093: </code><code>my</code></span> 
      <span style="font-family:NSimsun;"><code>(</code><code>$bindex</code><code>, </code><code>$pindex</code><code>, </code><code>$key</code><code>) = </code><code>@_</code><code>; </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:275 2.40340 1319500: </code><code>my</code></span> 
      <code><span style="font-family:NSimsun;">$status</span></code> 
      <span style="font-family:NSimsun;"><code>= </code><code>$self</code><code>-&gt;lookupFatchPool( </code><code>$urlMD5</code><code>, </code><code>$bindex</code><code>, </code><code>$cursor</code></span> 
      <code><span style="font-family:NSimsun;">); </span></code> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:274 2.37050 1319500: </code><code>my</code></span> 
      <code><span style="font-family:NSimsun;">$cursorStatus</span></code> 
      <span style="font-family:NSimsun;"><code>= </code><code>$self</code><code>-&gt;getByPiece(</code><code>$bindex</code><code>, </code><code>$cursor</code><code>, </code><code>'data'</code><code>); </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:276 2.26949 1319500: </code><code>next</code></span> 
      <code><span style="font-family:NSimsun;">if</span></code> 
      <code><span style="font-family:NSimsun;">$status</span></code> 
      <span style="font-family:NSimsun;"><code>or </code><code>$cursorStatus</code><code>; </code></span> 
     </div> 
     <div> 
      <span style="font-family:NSimsun;"><code>CFDS/File.pm:319 2.20017 1321093: </code><code>my</code></span> 
      <code><span style="font-family:NSimsun;">$self</span></code> 
      <span style="font-family:NSimsun;"><code>= </code><code>shift</code><code>;</code></span> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

(6 DBI::Profile

测试DBI的，没用过。。。

在这几个 Perl 的性能测试模块中，分别是：

1.  [Devel::DProf][Devel_DProf] － 以函数为单位
2.  [Devel::SmallProf][Devel_SmallProf] － 以行为单位
3.  [Devel::FastProf][Devel_FastProf] － 同上，但速度更快
4.  [Benchmark][] – 检查指定代码块

转载于:https://my.oschina.net/alphajay/blog/52417

[Link 1]: http://www.php-oa.com/2009/11/12/perl-debug.html#
[Devel_DProf]: http://search.cpan.org/author/ILYAZ/DProf-19990108/DProf.pm
[Devel_SmallProf]: http://search.cpan.org/author/SALVA/Devel-SmallProf-1.15/SmallProf.pm
[Devel_FastProf]: http://search.cpan.org/author/SALVA/Devel-FastProf-0.05/lib/Devel/FastProf.pm
[Benchmark]: http://search.cpan.org/~tty/kurila-1.14_0/lib/Benchmark.pm