Я пытаюсь упаковать Perl-скрипт в EXE с помощью утилиты pp, поставляемой в комплекте с PAR :: Packer с включенным Filter :: Crypto . Но что-то там не так. Без фильтра все в порядке. С этим нет. Я думаю, что это как-то связано с разделом DATA в сценарии. Следующий упрощенный скрипт может продемонстрировать проблему, но я не уверен, является ли моя проблема специфичной для ОС или нет. Проблема заключается в следующем: когда я использую
pp --gui -o 1.exe test.pl
EXE работает как ожидалось. Он отображает содержимое в разделе данных. Но с
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
Спасибо, как всегда за любые указания / указатели / предложения / комментарии:)