perl - Perl 中的 CRLF 与 Unicode 翻译

Question

我正在尝试在 Windows 上用 Perl 写入 Unicode (UCS-2 Little Endian) 文件，如下所示。

open my $f, ">$fName" or die "can't write $fName\n";
binmode $f, ':raw:encoding(UCS-2LE)';
print $f, "ohai\ni can haz unicodez?\nkthxbye\n";
close $f;

它基本上可以工作，只是我不再像在常规文本文件上那样在输出上获得自动 LF -> CR/LF 翻译。 (输出文件只有 LF)如果我在“binmode”调用中省略 :raw 或添加 :crlf，则输出文件会出现乱码。我尝试重新排序“指令”(即:在:raw之前编码)但无法使其工作。阅读也存在同样的问题。

Answer 1

这对我在 Windows 上有效:

open my $f, ">:encoding(UCS-2LE):crlf", "test.txt";
print $f "ohai\ni can haz unicodez?\nkthxbye\n";
close $f;

在 test.txt 中生成 UCS-16 LE 输出

ohai
i can haz unicodez?
kthxbye