perl中文化文件名

huang6894

想问一下，我的linux环境是非中文环境，可是我必须输出一个中文名的中间文件，直接open OUT,"> 中文.txt“;得到的是一个乱码的txt（里面的字符是正常的，因为用了binmode(STDOUT, ":encoding(gb2312)");），请问应该如何设置，能够在不修改父进程的前提下生产的中文文件名不乱码呢？

523066680

回复 7# huang6894


    那先做判断，首先你能用其他命令生成一个中文名的文件吗？
比如 ps > abc中文.txt

确保现在ls 能查看到这个中文名的文件

然后在同目录下执行下面的Perl，把结果贴上来

1. use Encode;
   
2. 
   
3. my ($fname)=glob "abc*.txt" or die "File not exists? ";
   
4. 
   
5. my $perlchar="中文";
   
6. 
   
7. print xcode($fname);
   
8. print "\n";
   
9. print xcode($perlchar);
   
10. 
    
11. sub xcode {
    
12.         $_[1]='x' if (not defined $_[1]);
    
13.         for my $v ( split(//,$_[0]) ) {
    
14.                 print sprintf ("%l$_[1] ",ord($v));       
    
15.         }
    
16.         print "\n\n";
    
17. }

复制代码

b114213903

用utf8编码文件内容试试

huang6894

回复 2# b114213903


    报告，内容是中文的。我的脚本处理的时候用encode写进了这个中文的文件里面，可是由于我的linux环境是英文的$ENV{LANG}=en_GB.ISO-8859-1；
   所以我在皮尔洛中把这个文件打包好后下下来一看，文件名是乱码的，内容却是正确的~

b114213903

文件名乱码没遇到过，用CentOS6.4，系统默认英文，utf8编码，添加了系统对东亚编码的支持以后，中文文件名都没问题

huang6894

回复 4# b114213903


    我知道，如果设置了bashrc让lang为utf-8的话是没问题的~

523066680

你要确定这个perl脚本是以什么格式保存的，在编辑器应该可以查到。
比如你是用utf8格式保存的perl脚本

那么明文的 "中文" 就是 utf8格式的，如果系统中的文件名应该为gbk格式，
那就这么弄

use Encode;
open WRT,">", encode('gbk', decode('utf8', "中文.txt"));

或者
use Encode;
use utf8;
open WRT,">", encode('gbk', "中文.txt");

你可以把你的乱码文件名粘贴上来，我们帮你看看

huang6894

回复 6# 523066680


    谢谢回复，还是不行~

huang6894

回复 2# 523066680


    实在抱歉，在终端我是没法创建中文文件的，所以以前用bash的时候我都是直接export LANG=utf-8的，可是在perl中由于进程的原因，system的export是不起作用的，我本以为既然我能在不定义系统环境的前提下往一个文件里写进中文，那么也应该可以创建中文文件。。。现在看来只能通过修改linux环境了~

523066680

回复 9# huang6894

    意思是没办法从其他方式生成中文名称的文件？

我上面是做一个测试，如果你能用其他方式生成，那么我用Perl去读取该文件名，就可以分析它是什么编码的