Cwd模块内部使用
关于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 ☺
char *类型，因此根本不处理编码。一般来说，文件系统不关心您的文件名使用什么字符或编码，只要您转义任何特殊字符（例如"/"）
如果您想告诉Perl文件路径是UTF-8，您可以对其进行编码：
use Encode qw(decode_utf8);
...
say decode_utf8(abs_path $file);
Perl让您来解码它返回的路径，并对您提供的路径进行编码。（YUCK！）