繁体字与简体字转换的实例程序
时间：2010-10-08
来源：互联网
本帖最后由 minirain 于 2010-10-08 13:44 编辑
复制代码
运行前需要安装Encode::HanConvert 和Encode模块，在Win7下Perl5.12.1通过测试。
- #!/usr/bin/perl
- use Encode ;
- use Encode::HanConvert ;
- &test() ;
-
- sub test {
-
-
- open TXT, ">ttt.txt" ;
- #binmode (TXT ,':encoding(utf8)');
- $w_def = "体重" ; # utf8 simple chinese
- $trad_txt ="單葉和複葉" ;
-
- $w_def = encode("utf8",simp_to_trad( decode( "utf8", $w_def ) ) ) ;
- $trad_txt = encode("utf8",trad_to_simp( decode( "utf8",$trad_txt ) ) ) ;
- print TXT "$w_def\n$trad_txt" ;
- $w_def = encode("gbk", decode("utf8", $w_def));#display in DOS mode by print
- $trad_txt = encode("gbk", decode("utf8", $trad_txt));#display in DOS mode by print
- print $w_def . "\n" .$trad_txt;
- close (TXT) ;
- }
|
trad&simpl.jpg (22.29 KB)
|
作者: minirain 发布时间: 2010-10-08
沙发，收藏！
作者: iamlimeng 发布时间: 2010-10-08
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
