Perl中简体字转换为繁体字(GBK转换成big5)

2016-07-15 19:21:47来源:CSDN作者:haoweilaizoule人点击

今天用Perl解决了一个转码出现乱码的问题。需求是将gbk转换成big5.项目源码用的函数是decode()和encode()两个函数。源码如下:

#!/usr/bin/perl use strict;use warnings;use Encode qw( encode decode ); my $gbk = '我是中国人,我爱中国,自古以来南海是中国不可分割的领土,小美国,日你妹,台湾当然也是中国的,我做的项目GBK转大五码就TM为你们做的';my $def_code = decode('gbk',$gbk);  #将gbk格式的汉字转换成utf8格式字符,且打开utf8_flag开关my $big5 = encode('big5',$def_code); #将utf8格式的汉字转换成big5格式字符,且关闭utf8_flag开关 open F,">out.txt"; print F $big5; print $big5; 

输出结果(查看方式为big5编码方式)为:

 

从输出结果可以看出,这并不是我们想要的结果。

后来改用别的方式,代码如下:

#!/usr/bin/perl use strict;use warnings;use Encode::HanConvert;  my $gbk = '我是中国人,我爱中国,自古以来南海是中国不可分割的领土,小美国,日你妹,台湾当然也是中国的,我做的项目GBK转大五码就TM为你们做的';my $big5 = gb_to_big5($gbk); use feature 'say';open F,">out.txt";print F $big5;print $big5;

输出结果为:

 

注意两个代码的不同与导包的变化。

 



 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台