use encoding 'euc-cn';
use Encode qw/encode/;
mkdir encode("euc-cn", "d:/lcr/中文");
2010/12/30 李春荣 <[email protected]>
> 我的源文件是这样写的：
> use Tk;
> use encoding 'euc_cn';
> use Encode::CN;
>
> mkdir "d:/lcr/中文";
> 就是上面的这句“use encoding 'euc_cn';”我写路径的时候就出现乱码了！
> 但是我写TK界面的时候，需要这句“use encoding 'euc_cn';”，就是有没有什么方法能让这句存在而不用其它字符编码。
>
> ------------------
>
>
> <http://sighttp.qq.com/cgi-bin/check?sigkey=ef3f1d0a590d1e6443cee4265a7919039ee5018b70c3188a2277e86ec7806dfe>
>
>
>
> ------------------ 原始邮件 ------------------
> *发件人:* "Robin Lee"<[email protected]>;
> *发送时间:* 2010年12月30日(星期四) 下午4:33
> *收件人:* "perlchina"<[email protected]>;
> *主题:* Re: 回复： [PerlChina] 关于XP下面perl代码生成中文目录？
>
> 如果源文件是用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]<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 访问此网上论坛。
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
