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);