#!/usr/bin/perluse strict;use IO::Handle;
if($#ARGV < 0 ){
die "usage: filelist ";
}if(!(-e "utf-8")){ mkdir "utf-8", or die "cannot make directory : $!";}my @file_list = @ARGV;foreach my $file (@file_list){
if ($file eq "gb2utf8.pl"){
next;
} print "converting $file ... "; system("iconv -f gb2312 -t utf8 $file -o utf-8/$file");}文件编码问题真让头疼，参照网上的一些方法用 perl 写了个gb2312转utf8的脚本，文件的名字是 gb2utf8.pl ， 可根据需要修改。
用法：
./gb2utf8.pl file
会在当前目录下建一个名为 utf-8 的目录，转换后的文件就放在这个目录里。
扫一扫
2144
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
