漢字のフリガナ取得
mecabつかうのが楽かなぁ。他にいい方法があるといいけど。コードももう少しましにならないかなぁ。
#!usr/bin/perl use strict; use Text::MeCab; my $text="難しい漢字です。"; print get_kana( $text ); #結果->ムズカシイカンジデス。 sub get_kana { my $text = shift; my $mecab = Text::MeCab->new(); my $result = ''; for (my $node = $mecab->parse($text); $node; $node = $node->next) { my @data = split( ',', $node->feature ); if( scalar @data > 8 && $data[8] ne '*' ) { $result .= $data[8]; } } return $result; }