日本語の読みを一瞬で抽出:



use Mecab;
my $string = "....";
my $m = Mecab::Tagger->new;
for (my $n = $m->parseToNode($string); $n; $n = $n->{next}) {
next unless $n->{surface};
my $y = (split(/,/, $n->{feature}))[7];
$yomi .= $y ? $y : $n->{surface};
}
print $yomi, "\n";

しかも速っ!惜しむらくはインターフェース的にIteratorにしてくれるといいなぁ、という感じ。