カナからひらがなへの変換方法

半角カナから全角カナへの変換方法は分かるのですが、全角ひらがなへの変換方法がわかりません。(全角カナからの変換でも可)
一文字ずつ、
$keyword =~ s/\ア/\あ/g;
見たいな感じでやってみましたが、変換結果がだんだん崩れていって、しまいには「ぽｂロソぽｂロホぽｂロッぽｂロ鞐ロｂロソぽｂ」なんて結果になったりします。
良い方法があれば教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： noname#25358 回答日時： 2002/07/29 13:59

　全角カタカナからひらがなへの変換ですが、これ、試してもらえますか？

$a =~ s/(\x83)([\x40-\x7e])/"\x82".sprintf("%c",ord($2)+0x5f)/eg;
$a =~ s/(\x83)([\x80-\x96])/"\x82".sprintf("%c",ord($2)+0x5e)/eg;

　細かい点で修正が必要だと思いますが（「ゐ」とかの変換で）、ある程度までは巧くいくと思います。

この回答へのお礼

すごい！
うまくいきました。
ありがとうございました。

お礼日時：2002/07/29 14:06