HyperEstraier の Perl バインディングを試してみる。
ドキュメントが見つからないのでソース見たりゴニョゴニョして以下のような感じで動いた。
あってるのか不安ですが、メモという事で。

検索文書の登録 
#!/usr/local/bin/perl

use strict;
use HyperEstraier;

my $db = HyperEstraier::Database->new;
$db->open("db", $HyperEstraier::Database::DBCREAT | $HyperEstraier::Database::DBWRITER) or die "$!";

my $doc1 = HyperEstraier::Document->new;
$doc1->add_attr('@uri', 'http://blog.shebang.jp/a');
$doc1->add_attr('@title', 'てすと1');
$doc1->add_text('今日は晴れてますね。');
$db->put_doc($doc1, $HyperEstraier::Database::PDCLEAN);

my $doc2 = HyperEstraier::Document->new;
$doc2->add_attr('@uri', 'http://blog.shebang.jp/b');
$doc2->add_attr('@title', 'てすと2');
$doc2->add_text('今日は雨ですね。');
$db->put_doc($doc2, $HyperEstraier::Database::PDCLEAN);

$db->close;
登録した文書の検索 
#!/usr/local/bin/perl

use strict;
use HyperEstraier;

my $db = HyperEstraier::Database->new;
$db->open("db", $HyperEstraier::Database::DBREADER) or die "$!";
my $cond = HyperEstraier::Condition->new;
$cond->set_phrase('晴れ');
my $result = $db->search($cond, 0);
for my $i(0 .. $result->size - 1) {
    my $id = $result->get($i);
    my $doc = $db->get_doc($id, 0);
    print $doc->attr('@uri'), "\n";
    print $doc->attr('@title'), "\n";
}
$db->close;