Perl：如何将编码添加到 PAR 打包存档中

Question

以下程序：

use Encode qw(:all);

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

如果我将脚本作为 .pl 或由 pp.bat 创建的可执行文件运行（使用 ActiveState Perl），则会给出不同的结果 如果我运行由 pp.bat 创建的 a.exe，可用编码列表非常短。如何添加编码？

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

执行 perldoc Encode::Supported 来找出哪个模块实现了您想要的编码。然后告诉 pp 通过使用 -M 命令行选项或在脚本中添加适当的 use 语句来包含该模块。

例如，如果您需要 iso-8859-15 编码，则由 编码::Byte。因此，您需要执行 pp.bat -M Encode::Byte script.pl，或将 use Encode::Byte 添加到 script.pl。