perl-编码批量转换gbk2312到utf8

最新推荐文章于 2021-07-21 09:19:31 发布

deepfuture

最新推荐文章于 2021-07-21 09:19:31 发布

阅读量222

点赞数

分类专栏：脚本语言文章标签： Perl F#

脚本语言专栏收录该内容

202 篇文章

订阅专栏

本文提供了一个Perl脚本实例，用于批量将GBK编码的文本文件转换为UTF-8编码。该脚本通过使用iconv命令行工具实现转换，并且能够处理指定目录下所有的.txt文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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