Mecabマンセー

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

  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にしてくれるといいなぁ、という感じ。