perl的中文字符集转换的例子

发布时间：2020-12-16 00:39:37 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/perl use Encode; $^I = ""; #open TEST_A,"file1.txt"; while () { ?print $_; ? ?$AAA = encode("ISO-8859-1",decode("utf8",$_)); ?print $AAA;? ?#$AAA = encode("gb2312",$_)); ?#print TEST_A "$AAA"; } #close TEST_A;

#!/usr/bin/perl
use Encode;

$^I = "";
#open TEST_A,">file1.txt";
while (<>)
{
?print $_;
?
?$AAA = encode("ISO-8859-1",decode("utf8",$_));
?print $AAA;?
?#$AAA = encode("gb2312",$_));
?#print TEST_A "$AAA";
}

#close TEST_A;

（编辑：李大同）

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