Senna-perl (Senna-dev 56) - senna

牧です。

SennaのPerlバインディングですが、とりあえず簡単な操作はできるところまで
をsvn revision 10で書きました。近日中にtar ball/CPANにアップロードします。

こんな感じで使えます：

  use Senna;
  my $index = Senna::Index->create($path);

  while (my $data = get_data_from_somewhere()) {
     $index->put($data->{key}, $data->{value});
  }

  my $cursor = $index->search("hoge");
  while (my $result = $cursor->next) {
     print $result->key, " = ", $result->score, "\n";
  }

  $cursor->close;
  $index->close; # or $index->remove

sen_queryに対してのインターフェースとかは今後対応していきますので少々お
待ちください！

--d

senna

[Senna-dev 56] Senna-perl