问utf8 8:所有

EN

如何将其设置为其他编码？

使用utf8::all，您不能。编码UTF-8在任何地方都是硬编码的。毕竟，该模块名为utf8::all，而不是big5::all。

您必须对进行解码/编码，并解释为，参见http://p3rl.org/UNI。你说你在Windows上，所以使用编码cp950。

use Encode qw(decode encode);

my @arguments_as_characters = decode 'cp950', @ARGV;
open my $file_handle, '<:encoding(cp950)', $file_name;
print encode 'cp950', $data_to_stdout;

如何在cp950中打开STDIN，STDOUT？

当您运行程序时，标准流已经打开了！您可以使用I/O层修改binmode。

binmode STDOUT, ':encoding(cp950)';

有一种方法可以将Windows命令提示符的代码页设置为UTF-8，但这不是一个可部署的解决方案。

我的建议是不用麻烦，只需在Perl中一直使用Big5 (并坚持使用in 950/)，或者使用文本文件I/O进行输入/输出。

或者，为了冒险，可以在cgywin中使用bash/perl，而不是使用UTF-8。

use open IO => ':encoding(big5)';

或

use open IO => ':encoding(cp950)';

或

use open IO => ':locale';