Perl: Как мне добавить кодировку в PAR-упакованный архив

Question

Следующая программа:

use Encode qw(:all);

my @list = Encode->encodings();
print join("\n", @list);

дает разные результаты, если я запускаю скрипт как .pl или как исполняемый файл, созданный pp.bat (используется ActiveState Perl) Если я запускаю a.exe, созданныйpp.bat список доступных кодировок очень короткий.Как добавить кодировки?

Answer 1

Вы должны добавить модули прямо в ваш код.

use Encode qw(:all);

use Encode::Byte;
use Encode::CN;
use Encode::JP;
use Encode::KR;
use Encode::TW;

my @list = Encode->encodings();
print join("\n", @list);

Answer 2

Do perldoc Encode::Supported, чтобы выяснить, какой модуль реализует нужную вам кодировку.Затем скажите pp включить этот модуль, используя параметр командной строки -M или добавив соответствующий оператор use в свой сценарий.

Например, если вам нужен iso-8859-15 кодировка, которая предоставляется Encode::Byte.Поэтому вы должны сделать pp.bat -M Encode::Byte script.pl или добавить use Encode::Byte в script.pl.