怎样检测字体编码？

coldrainsunc

一个在windowsXP下用zip压缩的一个目录，传到linux下,用unzip解压后发现原目录中的中文文件名是乱码。
试着用perl进行编码转换:

#!/usr/bin/perl
#c.pl
use Encode;

for $util (@ARGV){
$util=encode("gb2312",decode("utf-8",$util));
print "$util\n";
}
可得到结果是这样：
[root@supersun download]# ./c.pl ++-?+乏+胃-?+?.doc
++-?+??+θ-?+?.doc

我想是不是$util中内容不是utf-8的，有没有什么方法可以检测$util中字串的编码?
望各位兄弟能不吝赐教，再下感激不尽!

gsging

http://search.cpan.org/search?query=detect&mode=all

应该有你需要的吧.

路小佳

Encode::Guess
Encode::Detect

coldrainsunc

模块使用了，不过问题还是没有解决！不过还是非常感谢gsging兄！我在想想办法，多谢!

1. #!/usr/bin/perl
   
2. use Encode;
   
3. use Encode::Detect;
   
4. 
   
5. for $util (@ARGV){
   
6. $util=encode('gb2312',decode("detect",$util));
   
7. print "$util\n";
   
8. }

复制代码

运行结果:
[root@supersun download]# ./c.pl ++-?+乏+胃-?+?.doc
++-?+ид+?И-┴+И.doc

[ 本帖最后由 coldrainsunc 于 2007-4-26 17:41 编辑 ]

gsging

是不是linux的环境变量设置的有问题?

coldrainsunc

搞不清楚啊，如果不压缩的话传到linux系统中的文件的中文文件名显示正常！