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

質問

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

回答No.1

noname#25358 · ベストアンサー

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

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

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

お礼

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