1

关于 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 ☺
4

2 回答 2

3

Cwd 模块char *在内部使用类型,因此根本不处理编码。通常,文件系统不关心您为文件名使用的字符或编码,只要您转义任何特殊字符(例如'/')

如果你想告诉 Perl 文件路径是 UTF-8,你可以对它进行编码:

use Encode qw(decode_utf8);

...
say decode_utf8(abs_path $file);
于 2012-03-02T10:20:58.270 回答
1

Perl 让您来解码它返回的路径并编码您提供的路径。(哎呀!)

于 2012-03-02T09:21:36.270 回答