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

perldoc Encode::Supported找出哪个模块实现了你想要的编码。 然后告诉pp包含该模块，方法是使用 -M 命令行选项，或者将相应的 use 语句添加到脚本中。

例如，如果您需要iso-8859-15编码，则由 Encode::Byte 提供。 所以你会做pp.bat -M Encode::Byte script.pl，或者use Encode::Byte添加到 script.pl。