Namazuプログラミング

#! /usr/bin/perl5 -w
push(@INC, "/usr/share/namazu/pl");
require 'nmzidx.pl';
my $doc, my %list, my %doc_info;
my $word = 'hoge';
my $dir = '/home/rarul/nmz/';
my $nmz = new nmzidx($dir, 'r');
my $nmz_word = $nmz->open_word;
my $nmz_flist = $nmz->open_flist;
$nmz_word->search( \%list, $word);
print "document list including $word\n";
foreach $doc(keys %list){
 $nmz_flist->seek($doc);
 $nmz_flist->read(\%doc_info);
 print "id: $doc, filename: $doc_info{'r'}\n";
}
$nmz->close;