5 # 11/04/07 15:41:02 CET Dobrica Pavlinusic <dpavlin@rot13.org>
9 use KinoSearch::Simple;
10 use Data::Dump qw/dump/;
12 my ( $path, $query_string ) = @ARGV;
14 die "usage: $0 var/kinosearch/index 'query string'\n" unless $path && $query_string && -e $path;
16 my $index = KinoSearch::Simple->new(
21 my $total_hits = $index->search(
22 query => $query_string,
27 print "Total hits: $total_hits\n";
29 while ( my $hit = $index->fetch_hit_hashref ) {