このブログでは過去にさくらの500円サーバに MeCab をインストールする話を書いてたりしましたが、実はさくらの500円サーバには MeCab の Perl モジュールが最初から入ってるんですね。いつからなのかなあ。

下記ブログ記事で知りました。

- さくらインターネットにPerl版のMeCab（形態素解析）を導入する
http://crowd-logic.com/blog/archives/16132

さくらのサーバーには既に、mecab本体、mecab-perl、ipa辞書が入っています。

さて、最近のサーバのアップデートにより、自分で入れた MeCab の perl モジュールが動かなくなっていました。この際、最初から入っている MeCab.pm を使うことにしました。

私の環境では /usr/bin/perl ではなく、 /usr/local/bin/perl5.14.4 でなければ使えないみたい。

以下、テストコードと実行例。

■ソース(mecab.pl)：

use strict;
use warnings;
use MeCab;
my $m = new MeCab::Tagger ("");
while (<>) {
    chomp;
    my $n = $m->parseToNode($_);
    while ($n = $n->{next}) {
        print "$n->{surface} $n->{feature} $n->{cost}\n";
    }
}

■実行例：

% echo "美しい豚を食べた" | nkf -e | perl5.14.4 mecab.pl | nkf -w
美しい 形容詞,自立,*,*,形容詞・イ段,基本形,美しい,ウツクシイ,ウツクシイ 3862
豚 名詞,一般,*,*,*,*,豚,ブタ,ブタ 9952
を 助詞,格助詞,一般,*,*,*,を,ヲ,ヲ 9142
食べ 動詞,自立,*,*,一段,連用形,食べる,タベ,タベ 13197
た 助動詞,*,*,*,特殊・タ,基本形,た,タ,タ 10798
 BOS/EOS,*,*,*,*,*,*,*,* 9688

MECAPI も動かなくなっていたのですが、これで復旧しました。

追記191208: MECAPI リニューアルしました→ https://maapi.net/