使用 unicode 字符创建文件名

Question

我正在寻找有关如何使用 Unicode 字符创建文件名的指南。考虑：

use open qw( :std :utf8 );
use strict;
use utf8;
use warnings;

use Data::Dump;
use Encode qw(encode);

my $utf8_file_name1 = encode('UTF-8', 'æ1', Encode::FB_CROAK | Encode::LEAVE_SRC);
my $utf8_file_name2 = 'æ2';
dd $utf8_file_name1;
dd $utf8_file_name2;
qx{touch $utf8_file_name1};
qx{touch $utf8_file_name2};
print (qx{ls æ*});

输出为：

"\xC3\xA61"
"\xE62"
æ1
æ2

为什么我是否将文件名编码为 UTF8 并不重要？（无论哪种方式，文件名仍然成为有效的 UTF8。）

Answer 1

由于一个名为 "The Unicode Bug" 的错误。相当于发生以下情况：

use Encode qw( encode_utf8 is_utf8 );

my $bytes = is_utf8($str) ? encode_utf8($str) : $str;

is_utf8 检查标量使用了两种字符串存储格式中的哪一种。这是您永远不必担心的内部实现细节，Unicode 错误除外。

您的程序可以运行，因为 encode 总是 returns 一个字符串，is_utf8 returns 为 false，并且 use utf8; 总是 returns 一个字符串对于 is_utf8 returns 如果字符串包含非 ASCII 字符则为真。

如果您没有按应有的方式encode，有时您会得到错误的结果。例如，如果您使用 "\x{E6}2" 而不是 'æ2'，即使字符串具有相同的长度和相同的字符，您也会得到一个不同的文件名。

$ dir
total 0

$ perl -wE'
   use utf8;
   $fu="æ";
   $fd="\x{E6}";
   say sprintf "%vX", $_ for $fu, $fd;
   say $fu eq $fd ? "eq" : "ne";
   system("touch", $_) for "u".$fu, "d".$fd
'
E6
E6
eq

$ dir
total 0
-rw------- 1 ikegami ikegami 0 Jul 12 12:18 uæ
-rw------- 1 ikegami ikegami 0 Jul 12 12:18 d?

使用 unicode 字符创建文件名

Creating filenames with unicode characters

unicode

perl

utf-8