どんぞこ日誌

* [近況] またあいた

　もう3月。まだ一段落つきません。ふぅ。引き続き正社員、契約社員、バイト募集中です。興味のある方はご一報を。

* [Perl][メモ] Inline::CでMeCabのXSモジュール

　　Advanced Perl Programming (2nd ed)を読んでInline::C経由でXSモジュールをつくるのを試してみたくなりました。で、MeCabをWindowsでSWIGなしで動かすのにXSモジュールをつくってみることにしました。まずはText::MeCabにInline::Cを使ってガリガリコードを書いて、コンパイルが通ったらnocleanオプションで削除されずに残ったXSファイルをほぼそのまま利用します（Inline.hを移したりMODULE名とかは書き換えたり）。
　　できたのがこちらText-MeCab-0.03.tar.gz Text-MeCab-0.04.tar.gz（追記：2006-05-02 CPANに牧さんがちゃんとしたText::MeCabをアップしてくれましたので、公開を停止します）。完全にwindows用です。あしからず。MeCab Windows用バイナリをインストールしたときについてくるsdk/mecab.h、sdk/libmecab.lib、それとbin/libmecab.dllを利用します。mecab-0.90rc9＆Visual C++ toolkit 2003でのみ確認しています。ついでにblibに生成されたファイルも用意しておきましたので、こちらはあとblib/arch/auto/Text/MeCabにlibmecab.dll(mecab-0.90rc9)を置けばそのまま動くでしょう。

 # 使い方はswig版とだいたい同じ感じ  
 my $mecab  = new Text::MeCab "-l1", "-Ochasen";
 
 print $mecab->parse($text);
 
 my $node = $mecab->parseToNode($text);
 # 次のnodeを得るにはメソッドnextを使います。

　　追記：Win32用ならppmにしてくれればいいのに　やり方知らないので。きっと誰かがやってくれるんじゃないかしらと……　折をみてやってみるかもしれません。