多谢了，搞定。。 ------------------
------------------ 原始邮件 ------------------ 发件人: "Robin Lee"<[email protected]>; 发送时间: 2010年12月30日(星期四) 晚上11:12 收件人: "perlchina"<[email protected]>; 主题: Re: 回复： 回复： [PerlChina] 关于XP下面perl代码生成中文目录？ 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';”，就是有没有什么方法能让这句存在而不用其它字符编码。 ------------------ ------------------ 原始邮件 ------------------ 发件人: "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; 加入这句就可以了？ ------------------ ------------------ 原始邮件 ------------------ 发件人: "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/中文”;(也属于是新建一个中文目录) ------------------ -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 -- Shu Cao -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [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 访问此网上论坛。 -- Shu Cao -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [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 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [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 访问此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
