perl utf8 转gbk

发布时间：2020-12-15 23:52:55 所属栏目：大数据来源：网络整理

导读：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 FIL

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!