2012年1月31日
[转] perl 半角 全角 转换
摘要： 原文网址：http://hi.baidu.com/rdzwx/blog/item/6b52c9c4bdf70c179d163d81.htmlperl 半角 全角 转换2010-05-18 10:33# 全角字符第一字节 = 163(0xA3), 第二字节为对应半角字符 + 128# 全角中文第一字节 > 163my $str = ‘０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；';print "$str\n";$str =~ s/\x{A3}(.)/chr(ord($1) - 128)/eg;print "$str\n&q 阅读全文
posted @ 2012-01-31 16:19 xiaodongrush 阅读(1800) 评论(2) 推荐(1) 编辑