如何在Perl中通过open函数跨平台创建文件名含Unicode字符的文件？

问题根因 #

你当前代码依赖Encode::Locale的区域编码适配逻辑，当文件名包含当前区域编码（比如你用的CP-1252）不支持的字符时，编码过程会自动将无法识别的字符替换为?，最终导致文件名无效创建失败。

原参考方案仅适用于文件名字符全部被当前区域编码覆盖的场景，无法满足任意Unicode字符的需求。

兼容方案实现 #

三大操作系统的文件名底层逻辑不同，需要分别适配：

• Linux、macOS：底层原生支持UTF-8编码的文件名，直接将Unicode字符串编码为UTF-8字节流即可使用
• Windows：原生Perl的open走ANSI接口受区域编码限制，需要调用宽字符API绕过限制

完整代码 #

use strict;
use warnings FATAL => 'all';
use Encode qw(encode);

# Unicode文件名示例：ファイル.c
my $unicode_file = "\x{30D5}\x{30A1}\x{30A4}\x{30EB}.c";

my $file_handle;
if ($^O eq 'MSWin32') {
    # Windows环境调用宽字符接口
    require Win32::LongPath;
    $file_handle = Win32::LongPath->openW('>', $unicode_file) 
        or die "创建文件失败: $^E";
} else {
    # Linux/macOS编码为UTF-8
    my $utf8_file = encode('UTF-8', $unicode_file);
    open($file_handle, '>', $utf8_file) 
        or die "创建文件失败: $!";
}

# 后续文件读写操作正常操作句柄即可
print $file_handle "测试内容";
close $file_handle;

依赖安装 #

Windows环境需要提前安装Win32::LongPath模块，执行以下命令安装：
cpan Win32::LongPath

扩展说明 #

如果需要读取目录中的Unicode文件名，也按照对应系统逻辑适配即可：

• Windows使用Win32::LongPath的readdirW方法，直接返回Unicode字符串
• Linux/macOS读取到的文件名字节流直接用decode('UTF-8', $raw_name)转为Unicode字符串即可

内容的提问来源于stack exchange，提问作者Pierre