mecabつかうのが楽かなぁ。他にいい方法があるといいけど。コードももう少しましにならないかなぁ。 #!usr/bin/perl use strict; use Text::MeCab; my $text="難しい漢字です。"; print get_kana( $text ); #結果->ムズカシイカンジデス。 sub get_kana { my…

http://foxkeh.jp/blog/150/欲し〜ぃ。携帯もってないけどね。