Question

关于Unicode的CWD模块是不是最新的，或者只是在写入操作系统时才使用abs_path？

#!/usr/bin/env perl
use warnings;
use 5.012;
use utf8;
binmode STDOUT, ':encoding(utf-8)';
use Cwd qw(abs_path);
use File::Spec::Functions qw(rel2abs);

chdir '/tmp';

my $file = "Hello \x{263a}";

open my $fh, '>', $file or die $!;
say $fh 'test';
close $fh;

say abs_path $file;
say rel2abs $file;

输出：

# /tmp/Hello âº
# /tmp/Hello ☺

Answer 1

Cwd模块在内部使用char *类型，因此根本不处理编码。通常，文件系统不关心您对文件名使用哪些字符或编码，只要您转义任何特殊字符（例如＆＃39; /＆＃39;）

如果你想告诉Perl文件路径是UTF-8，你可以编码：

use Encode qw(decode_utf8);

...
say decode_utf8(abs_path $file);

Answer 2

Perl将它留给您解码它返回的路径并对您提供的路径进行编码。（YUCK！）

CWD unicode支持

2 个答案: