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',} }; ### 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:
$DB::profile = 0;
|
这之间的代码不会被SmallProf跟踪