使用utf8编码的Perl脚本，它可以打开GB2312编码的文件名吗？

Question

我不是在谈论以 utf-8 或非 utf-8 编码读取文件内容之类的内容。这是关于文件名的。通常我将 Perl 脚本保存为系统默认编码，在我的例子中为“GB2312”，并且不会出现任何文件打开问题。但出于处理目的，我现在有一些以 utf-8 编码保存的 Perl 脚本文件。问题是：这些脚本无法打开名称由“GB2312”编码的字符组成的文件，并且我不喜欢必须重命名文件的想法。

有没有人有处理这种情况的经验？一如既往地感谢您的指导。

编辑

这是最小化的代码来演示我的问题：

# I'm running ActivePerl 5.10.1 on Windows XP (Simplified Chinese version)
# The file system is NTFS

#!perl -w
use autodie;

my $file = "./测试.txt"; #the file name consists of two Chinese characters
open my $in,'<',"$file";

while (<$in>){
print;
}

如果以“ANSI”编码保存，此测试脚本可以很好地运行（我假设 ANSI 编码与 GB2312 相同，用于显示中文字符）。但如果保存为“UTF-8”则不行，错误信息如下：

Can't open './娴嬭瘯.txt' for reading: 'No such file or directory'.

在这个警告信息中，“娴嬭瘯”是无意义的垃圾字符。

更新

我首先尝试将文件名编码为 GB2312，但它似乎不起作用:( 这是我尝试过的：

#!perl -w
use autodie;
use Encode;

my $file = "./测试.txt";
encode("gb2312", decode("utf-8", $file));
open my $in,'<',"$file";

while (<$in>){
print;
}

我目前的想法是：我的操作系统中的文件名是测试.txt，但它的编码为GB2312。在 Perl 脚本中，文件名在人眼看来是相同的，仍然是 Test.txt。但对于 Perl 来说，它们是不同的，因为它们有不同的内部表示。但我不明白为什么当我已经将 Perl 中的文件名转换为 GB2312 时问题仍然存在，如上面的代码所示。

更新

我成功了，终于成功了:)

@brian 的建议是正确的。我在上面的代码中犯了一个错误。我没有将编码后的文件名返回给 $file。

这是解决方案：

#!perl -w
use autodie;
use Encode;

my $file = "./测试.txt";
$file = encode("gb2312", decode("utf-8", $file));
open my $in,'<',"$file";

while (<$in>){
print;
}

Answer 1

如果您

 use utf8;

在 Perl 脚本中，这只是告诉 Perl 源代码是 UTF-8。它不影响 perl 与外界打交道的方式。您是否打开了任何其他 Perl Unicode 功能？

您是否对每个文件名都有问题，或者只是其中一些文件名有问题？您能给我们一些例子，或者一个小的演示脚本吗？我没有将名称编码为 GB2312 的文件系统，但是您是否尝试在调用 open 之前将文件名编码为 GB2312 ？

如果您想要使用特定编码对特定字符串进行编码，可以使用 Encode 模块。尝试使用您为 open 指定的文件名。