python - perl如何设置编码？我想创建一个特殊名称的目录

Question

如果我想用 python 做这个，代码就像:

#!usr/bin/python
import os
import sys
reload(sys)
sys.setdefaultencoding('utf-8')

path = 'H:\\Dolly. - 。.〆bear小熊-葉鏗然-ω·）~☆ぼんじ'
print(path)
os.mkdir(path)

但我尝试使用 perl，它不起作用。

#!/usr/bin/perl
use File::Path;
use utf8;
path = 'H:\\Dolly. - 。.〆bear小熊-葉鏗然-ω·）~☆ぼんじ';
make_path(path );

Answer 1

不幸的是，Perl 对 Windows 的支持真的很糟糕。在这种情况下，部分原因是 Perl 认为文件名是不透明的字节串而不是文本。因此，内置函数不使用 (W)ide 接口(interface)调用，因此您只能使用系统的“(A)NSI”编码。在大多数机器上，这是 cp1252。

Win32::FindFile在名称 CreateDirectory 下为 CreateDirectoryW 提供接口(interface)。

#!/usr/bin/perl
use utf8;
use Win32::FindFile qw( CreateDirectory );
my $dir = 'H:\\Dolly. - 。.〆bear小熊-葉鏗然-ω·）~☆ぼんじ';
CreateDirectory($dir)
   or die $^E;

未经测试，但如果它不起作用，我会感到惊讶。