解决方法
看看
Devel::Trace或
Devel::ebug。
给定这个名为w.pl的程序：
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $answer = 42;
- if ($answer == 6 * 9) {
- print "everything is running fine.\n";
- } else {
- warn "there must be a bug somewhere...\n";
- }
您可以使用Devel :: Trace来监视执行：
- perl -d:Trace w.pl
其中产生以下输出：
- >> w.pl:6: my $answer = 42;
- >> w.pl:8: if ($answer == 6 * 9) {
- >> w.pl:11: warn "there must be a bug somewhere...\n";
- there must be a bug somewhere...