perl - "CODE"对变量意味着什么？

Question

在 perl 我想调试一些模块代码，所以我暂时在这样的源代码中添加了以下行:

 print $${${$${$$h[1]{$j}}{proxy_cache}}{$e}}{'fetch_handler'}{'ownerDocument'}

...它打印:

 CODE(0x9b2b3e0)

“代码”是什么意思？我期待 HASH(0x???????) .我是 Perl 的新手，所以请解释一下，因为 +Perl +CODE 的 goooooogling 没有帮助 :)

我正在寻找 url的 ownerDocument信息，顺便说一句。

[更新]

我正在尝试使用模块 WWW::Scripter根据我的需要，我已经发现了这个模块的作者(Father Chrysostomos)已经根据我的输入修复了几个错误。

现在我正在“调试”在 JavaScript 中动态创建的图像的一些问题(例如 ((new Image()).src='http://...' )，因为这些图像现在不包含在 $w->images 中结果。

如果你看看 sub update_html在模块源 [http://cpansearch.perl.org/src/SPROUT/WWW-Scripter-0.026/lib/WWW/Scripter.pm] , 有一行以

       $h && $h->eval($self, $code  ...

这是我需要调试的部分。在评估脚本后，我正在尝试在 DOM 中“搜索”新图像。我能够很容易地找到图像元素，但现在我正在尝试查找它们属于哪个文档的信息，因为我需要 get他们用正确的 referer信息。一些图像是在框架、iframe、脚本等中创建的。如果使用了不正确的referer信息，则可能会导致错误的响应，如大多数 (new Image()).src='http://...'图像用于跟踪 cookie，而不是用于真实的图像内容。要获得正确的文档内容，所有这些特殊图像都需要正确处理，如果没有正确的引用，它就无法工作......

Answer 1

这是一个代码引用，例如:

my $var = sub { ... };
print "$var\n";