Darts Perl binding

サーバをぶん回す某プロセス。

for my $doc (@docs) {
    for my $word (@words) {
        my @m = $doc =~ /\Q$word\E/g;
        my $tf = @m;

        # do something
    }
}

本物はこんなものではなく、もっとアレ。まぁ、なんか trie ぐらい使えないものか。
というわけで、勢いで意味もなく Darts の Perl binding を適当に。

• ref:http://odz.sakura.ne.jp/download/Darts-0.01.tar.gz

テストもドキュメントも書いていないというまさにソースが読める奴以外お断りな状況。