18、Perl 代码调试与模块使用技巧

Perl 代码调试与模块使用技巧

1. 检查数据结构

在维护他人编写的代码时，有时需要查看某个引用的内容。例如，在一个超过 2000 行的 Web 程序中，发现了一个名为 $someref 的引用，想要查看其内容。可以按以下步骤操作：
1. 在文件顶部添加如下代码：

use Dumpvalue;
my $d = Dumpvalue->new( );

2. 当 $d 和 $someref 都在作用域内时，添加代码：

$d->dumpValue(\$someref);

运行代码后，就会输出 $someref 的内容。

1.1 输出到文件

默认情况下， dumpValue() 会将内容输出到 STDOUT ，但实际上它会输出到当前选定的输出文件句柄。可以通过以下代码将输出内容保存到文件中：

open my $fh, '>dump.out';
my $old_fh = select($fh);
$d->dumpValue(\$ref);
close $fh;
select($old_fh);