这是一个使用Perl进行编码转换的脚本，将UTF8格式的文件内容转换为GBK编码。通过Encode模块实现读取文件，解码为UTF8，再编码为GBK，并打印输出。
use Encode;
if ( $#ARGV < 0 ){
print "请输入一个文件\n";
exit(-1);
}
$var = $ARGV[0];
open (FILE ,"<","$var") || die "can open file$!\n";
while (<FILE>) {
$str = encode("gbk",decode("utf8","$_"));
print "$str" ;
}
close FILE;
if ( $#ARGV < 0 ){
print "请输入一个文件\n";
exit(-1);
}
$var = $ARGV[0];
open (FILE ,"<","$var") || die "can open file$!\n";
while (<FILE>) {
$str = encode("gbk",decode("utf8","$_"));
print "$str" ;
}
close FILE;
扫一扫
403
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
