我正在尝试使用与 PAR::Packer 捆绑在一起的 pp 实用程序将 Perl 脚本打包为 EXE与 Filter::Crypto在。但那里有些不对劲。没有过滤器,一切正常。有了它,没有。我认为这与脚本中的数据部分有关。以下简化的脚本可能会说明问题,但我不确定我的问题是否是特定于操作系统的。问题是这样的:当我使用
pp --gui -o 1.exe test.pl
EXE 工作正常。它显示 DATA 部分中的内容。但是随着
pp --gui -f Crypto -M Filter::Crypto::Decrypt -o 2.exe test.pl
EXE不输出任何内容
use Win32::GUI;
use strict;
use warnings;
my $mw = new Win32::GUI::DialogBox(
-text => 'Test',
-left => 300,
-top => 100,
-left => 60,
-width => 200,
-height => 200,
);
$mw->Show();
my $result = $mw->AddTextfield(
-left => 0,
-top => 40,
-size => [180,100],
-vscroll =>1,
-multiline => 1,
);
my $button = $mw->AddButton(
-name => 'button',
-text => 'Go',
-left => 120,
-top => 10,
-visible =>1,
);
Win32::GUI::Dialog;
sub button_Click {
while(<DATA>) {
$result->Append("$_\r\n");
}
}
__DATA__
This is LINE1
This is LINE2
This is LINE3
一如既往地感谢任何指导/指点/建议/评论:)
最佳答案
关于perl - Filter::Crypto 模块对 DATA 部分做了什么?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2212060/