Darts Perl binding - odz bufferサーバをぶん回す某プロセス。 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 テストもドキュメントも書いていないというまさにソースが読める奴以外お断りな状況。
