小编Han*_*zel的帖子

当 Perl 打开一个 UTF-16 编码的文件时，

open my $in, "< :encoding(UTF-16)", "text-utf16le.txt" or die "Error $!\n";

由于字节顺序标记，它会自动检测字节序。

但是当我打开文件进行写入时

open my $out, "> :encoding(UTF-16)", "output.txt" or die "Error $!\n";

Perl 默认以大端格式打开它。

请问如何指定以与输入文件相同的字节序打开输出文件？

如何从输入文件句柄获取字节序/编码$in？PerlIO::get_layers($in)返回其他层encoding(UTF-16)。