perl - パッケージコードを印刷するには？

Question

カスタム関数によってエンコードされた 1 つのモジュール (.pm) を持つ perl スクリプトに問題があり、モジュールが .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