如果源文件是用UTF-8编写，这样就可以：
use utf8;
use Encode qw(encode);
mkdir "d:/lcr/" . encode("euc-cn", "中文");
如果源文件是用GBK编写，那可以直接运行：
mkdir “d:/lcr/中文”;
2010/12/30 Shu Cao <[email protected]>
> use Win32::API;
> Win32::API->Import(
> 'Kernel32', 'BOOL CreateDirectoryW(LPWSTR lpPathNameW, VOID *p)',
> );
>
>
>
> 2010/12/30 李春荣 <[email protected]>
>
> 是不是这样的，use Win32::API; 加入这句就可以了？
>>
>> ------------------
>>
>>
>> <http://sighttp.qq.com/cgi-bin/check?sigkey=ef3f1d0a590d1e6443cee4265a7919039ee5018b70c3188a2277e86ec7806dfe>
>>
>>
>>
>> ------------------ 原始邮件 ------------------
>> *发件人:* "Shu Cao"<[email protected]>;
>> *发送时间:* 2010年12月30日(星期四) 上午10:00
>> *收件人:* "perlchina"<[email protected]>;
>> *主题:* Re: [PerlChina] 关于XP下面perl代码生成中文目录？
>>
>> 用Win32::API
>>
>>
>> CreateDirectoryW(Encode::encode("UCS-2le", "d:/lcr/中文\0"), undef);
>>
>>
>> 2010/12/29 李春荣 <[email protected]>
>>
>>> 请教一下，如何在XP系统下用perl代码生成中文目录?而且不是乱码？
>>> 如：mkdir “d:/lcr/中文”;(也属于是新建一个中文目录)
>>>
>>> ------------------
>>>
>>>
>>> <http://sighttp.qq.com/cgi-bin/check?sigkey=ef3f1d0a590d1e6443cee4265a7919039ee5018b70c3188a2277e86ec7806dfe>
>>>
>>>
>>>
>>> --
>>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>>> 要取消订阅此网上论坛，请发送电子邮件至
>>> [email protected]<perlchina%[email protected]>
>>> 。
>>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>>
>>
>>
>>
>> --
>> Shu Cao
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>> 要取消订阅此网上论坛，请发送电子邮件至
>> [email protected]<perlchina%[email protected]>
>> 。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
>> 要取消订阅此网上论坛，请发送电子邮件至
>> [email protected]<perlchina%[email protected]>
>> 。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>
>
>
> --
> Shu Cao
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 要取消订阅此网上论坛，请发送电子邮件至
> [email protected]<perlchina%[email protected]>
> 。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
