如何使用Perl在Windows上创建Unicode目录？

上一个答案：

注意：将此保留在此处作为记录,因为您尝试直接在程序中使用CreateDirectoryW.

要手动执行此操作,请使用Win32::API导入CreateDirectoryW：

Win32::API->Import(
    Kernel32 => qq{BOOL CreateDirectoryW(LPWSTR lpPathNameW,void *p)}
);

您需要为CreateDirectoryW编码$path：

#!/usr/bin/perl

use Strict; use warnings;
use utf8;

use Encode qw( encode );
use Win32::API;

Win32::API->Import(
    Kernel32 => qq{BOOL CreateDirectoryW(LPWSTR lpPathNameW,void *p)}
);

binmode STDOUT,':utf8';
binmode STDERR,':utf8';

my $dir_name = 'Волгогра́д';

my $ucs_path = encode('UCS-2le',"$dir_name\0");
CreateDirectoryW($ucs_path,undef)
    or die "Failed to create directory: '$dir_name': $^E";

E:\> dir
2010/02/02  01:05 PM              волгогра́д
2010/02/02  01:04 PM              москва