Что модуль Filter :: Crypto делает с разделом DATA? - PullRequest
3 голосов
/ 06 февраля 2010

Я пытаюсь упаковать 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

Спасибо, как всегда за любые указания / указатели / предложения / комментарии:)

1 Ответ

2 голосов
/ 06 февраля 2010
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...