在 Perl 文件输出中强制使用 UTF-8 字节顺序标记

Question

我正在使用 Perl 编写 CSV 文件。进入 CSV 的数据包含 Unicode 字符。我正在使用以下内容写出 CSV：

open(my $fh, ">:utf8", "rpt-".$datestring.".csv")
or die "cannot open < rpt.csv: $!";

文件中的字符已正确写入，但似乎不包含 UTF8 字节顺序标记。当我的用户尝试在 Excel 中打开该文件时，这会让他们感到厌烦。有没有办法强制写入字节顺序标记？

我尝试了以下方式：

print $fh "\x{EFBBBF};

我最终在文件顶部出现了乱码。

Answer 1

尝试这样做：

print $fh chr(65279);

打开文件后。

Answer 2

有没有办法强制写入字节顺序标记？

要写出此内容，您必须在打开文件时使用 File::BOM 写出字节顺序标记。

例如，编写一个带有 BOM 的小端 UTF-16 文件：

use File::BOM ();
my $filename = "out.bin";
open(FH, '>:encoding(UTF-8):via(File::BOM)', $filename);
print FH "ʇsǝ⊥\n";

然后运行程序并检查输出：

% file out.bin
out.bin: Unicode text, UTF-8 (with BOM) text

在 perl 5.8.7 之前，存在宽字符的错误。