perl 半形 全形 轉換

原文網址：http://hi.baidu.com/rdzwx/blog/item/6b52c9c4bdf70c179d163d81.html perl 半形 全形 轉換2010-05-18 10:33

# 全形字元第一位元組 = 163(0xA3), 第二位元組為對應半形字元 + 128 # 全形中文第一位元組 > 163 my $str = ‘０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；'; print "$str\n"; $str =~ s/\x{A3}(.)/chr(ord($1) - 128)/eg; print "$str\n"; ### 運行結果 ### ０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：； 019AaBbYyZz\",.?<>{}[]*&^%#@!～()+-|:; #反之則半形轉全形 $str =~ s/([0-9a-zA-Z])/chr(163).chr(ord($1)+128)/eg; print "$str\n"; ### 運行結果 ### ０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；