回复： 回复： 回复： [PerlChina] 关于XP下面perl代码生成中文目录？

多谢了，搞定。。

 

------------------

 

 

 

 

------------------ 原始邮件 ------------------

发件人: "Robin Lee"<robinlee.sysu@gmail.com>;

发送时间: 2010年12月30日(星期四) 晚上11:12

收件人: "perlchina"<perlchina@googlegroups.com>;

主题: Re: 回复： 回复： [PerlChina] 关于XP下面perl代码生成中文目录？

 

use encoding 'euc-cn';
use Encode qw/encode/;

mkdir encode("euc-cn", "d:/lcr/中文");

2010/12/30 李春荣 <camdesign@vip.qq.com>

我的源文件是这样写的：

use Tk;
use encoding 'euc_cn';
use Encode::CN;

 

mkdir "d:/lcr/中文";

就是上面的这句"use encoding 'euc_cn';"我写路径的时候就出现乱码了！
但是我写TK界面的时候，需要这句"use encoding 'euc_cn';"，就是有没有什么方法能让这句存在而不用其它字符编码。

 

------------------

 

 

 

 

------------------ 原始邮件 ------------------

发件人: "Robin Lee"<robinlee.sysu@gmail.com>;

发送时间: 2010年12月30日(星期四) 下午4:33

收件人: "perlchina"<perlchina@googlegroups.com>;

主题: 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 <shucao@gmail.com>

use Win32::API;
Win32::API->Import(
      'Kernel32', 'BOOL CreateDirectoryW(LPWSTR lpPathNameW, VOID *p)',
  );  

2010/12/30 李春荣 <camdesign@vip.qq.com>

是不是这样的，use Win32::API;  加入这句就可以了？

 

------------------

 

 

 

 

------------------ 原始邮件 ------------------

发件人: "Shu Cao"<shucao@gmail.com>;

发送时间: 2010年12月30日(星期四) 上午10:00

收件人: "perlchina"<perlchina@googlegroups.com>;

主题: Re: [PerlChina] 关于XP下面perl代码生成中文目录？

 

用Win32::API


CreateDirectoryW(Encode::encode("UCS-2le", "d:/lcr/中文\0"), undef);

2010/12/29 李春荣 <camdesign@vip.qq.com>

请教一下，如何在XP系统下用perl代码生成中文目录?而且不是乱码？

如：mkdir  "d:/lcr/中文";(也属于是新建一个中文目录)

 

------------------

 

 

 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Shu Cao

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Shu Cao

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。