perl-编码批量转换gbk2312到utf8
#批量转换gbk到utf8
use 5.010;
use warnings;
use strict;
use File::Basename;
#深未来技术 http://deepfuture.iteye.com/
my $mydir='../zcgw/gw/nozc'; #目录
my @list = glob("$mydir/*.txt");
my $jd;
foreach my $mylist(@list){
$jd++;
say '-'x80;
say "正在处理$mylist";
say '[='.'='x($jd/scalar(@list)*100).'>'.'.'x(100-$jd/scalar(@list)*100).']';
say(system("iconv","-f","gb2312","-t","utf-8",$mylist,"-o",$mylist));
}
页:
[1]