#批量转换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)); }