使用Smart::Comments调试Perl代码

Posted on by

Smart::Comments可以将特定的注释变成调试语句。例如：

1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl -w
 
use Smart::Comments;
$a{'a'}[0] = 20;
 
#debug info
### %a
$a{'a'}[0]++;
### %a
print $a{'a'}[0];

在###注释的地方，程序把%a哈希输出了。
这样只要通过简单的是否use Smart::Comments就可以在调试模式下进行切换了。

还有从命令行调用的方式，这样连第一句use也不用了：

1

perl -MSmart::Comments test.pl