perl - 如何打印出包装代码？

Question

我对 perl 脚本有一些困难，它有一个由自定义函数编码的模块（.pm），并且在模块加载到 .cgi 脚本之前总是被解码。

我什至可以让它保持原样，但目前我必须对这个模块包含的子例程进行一些更改，因为它是编码的，所以我很无助；/到目前为止，我已经尝试了几种方法，即：

#!/usr/bin/perl

use strict;
use lib '.';
use ModuleX;   ### This is encoded module which I need
use CGI::Carp qw(fatalsToBrowser);

不幸的是 $body 只返回“;” 结果;/我希望可以获得这些方法代码，但我不知道我还能做什么。

感谢帮助。

score 4 · Accepted Answer

您是否要解析包new中的方法ModuleX？那我相信你想说

my $body = $deparse->coderef2text(\&Modulex::new);

1 回答 1