perl将全角转换为半角

转至 http://hi.baidu.com/%B0%AE%D0%C4%CD%AC%C3%CB%5F%B3%C2%F6%CE/blog/item/b921e5f5b1d69f2ebc310958.html

在GB2312下的全角标点和ascii码下的半角标是有联系的。不要什么对照表,全角字符是两个字节,跟半角字符有一一对应的线性关系,很简单.  
  第一字节:     160+区号                       { 全角的第一字节相等 }  
  第二字节:     128+半角ascii码   

因此，将全角标点转换为半角标点可用以下语句完成
$str=~s/(/xA3(.))/chr(ord($2)-128)/eg;　 [1]
$str =~ s//x{A3}(.)/chr(ord($1)-128)/eg; [2]
（应用此语句会发成/xA3的匹配冲突。这也是gb2312下进行汉字匹配时最头疼的事情。）

因此，对应一些特定的符号，我们可以使用下面这条语句进行处理（依旧会有冲突如“危机”一词）
$str=~s/(０|１|２|３|４|５|６|７|８|９|
         Ａ|Ｂ|Ｃ|Ｄ|Ｅ|Ｆ|Ｇ|Ｈ|Ｉ|Ｊ|Ｋ|Ｌ|Ｍ|Ｎ|Ｏ|Ｐ|Ｑ|Ｒ|Ｓ|Ｔ|Ｕ|Ｖ|Ｗ|Ｘ|Ｙ|Ｚ|
         ａ|ｂ|ｃ|ｄ|ｅ|ｆ|ｇ|ｈ|ｉ|ｊ|ｋ|ｌ|ｍ|ｎ|ｏ|ｐ|ｑ|ｒ|ｓ|ｔ|ｕ|ｖ|ｗ|ｘ|ｙ|ｚ|
         |％（|）|＋|－|．|／|：|，|；|？|！|｛|｝|｜)/chr(ord(substr($1,1,1))-128)/xeg;
这里多少还是用到了穷举的思想，但是起码比一行一行穷举方便多了。

还有一种方法是借助了哈希表的思想
将要替换的字符存入哈希表，然后比照哈希表进行替换。如下:
my %h = ("０"=>"[0]","１"=>"1","２"=>"2","３"=>"3","４"=>"4","５"=>"5","６"=>"6","７"=>"7","８"=>"8",
        "９"=>"9","％"=>"%","（"=>"(","）"=>")","＋"=>"+","－"=>"-","．"=>".","／"=>"/","："=>":",
        "，"=>",","；"=>";","？"=>"?","！"=>"!","｛"=>"{","｝"=>"}","｜"=>"|","。"=>".");

$str="杜斯特－布拉齐说，法国外交部已成立危机小组以处理善后事宜。";
my $newstr = "";
$str=~s/([/x80-/xff]{2})/$h{ $1 } ? $h{ $1 } : $1/eg;
$str=~s//[0/]/0/g;      #简单的替换0会在$h{$1} ? $h{$1}:$1时将$h{$1}(=0)判断为错
print $str;
相信这么做的效率应该比方法一要低不少。而且还需要额外的空间来存储哈希表。但是这样做不会产生ascii下的匹配错误，是安全的。

perl中全角转半角方法，反之则半角转全角。

my $str = '０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；';
print "$str/n";
$str =~ s//x{A3}(.)/chr(ord($1) - 128)/eg;
print "$str/n";

 

Ord函数将字母转换成数字；

chr函数将数字转换成字母。