perl如何设置编码？我想用特殊的nam创建一个目录

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，它不起作用。在

^{pr2}$

Answer 1

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

Win32::FindFile以名称CreateDirectory提供一个到CreateDirectoryW的接口。在

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

未经测试，但如果不起作用我会很惊讶的。在