trunk/scripts/kinosearch.pl

#!/usr/bin/perl -w

# kinosearch.pl
#
# 11/04/07 15:41:02 CET Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;

use KinoSearch::Simple;
use Data::Dump qw/dump/;

my ( $path, $query_string ) = @ARGV;

die "usage: $0 var/kinosearch/index 'query string'\n" unless $path && $query_string && -e $path;

my $index = KinoSearch::Simple->new(
        path     => $path,
        language => 'en',
);

my $total_hits = $index->search(
        query      => $query_string,
        offset     => 0,
        num_wanted => 100,
);

print "Total hits: $total_hits\n";

while ( my $hit = $index->fetch_hit_hashref ) {
        print dump( $hit );
}

1	#!/usr/bin/perl -w
2
3	# kinosearch.pl
4	#
5	# 11/04/07 15:41:02 CET Dobrica Pavlinusic <dpavlin@rot13.org>
6
7	use strict;
8
9	use KinoSearch::Simple;
10	use Data::Dump qw/dump/;
11
12	my ( $path, $query_string ) = @ARGV;
13
14	die "usage: $0 var/kinosearch/index 'query string'\n" unless $path && $query_string && -e $path;
15
16	my $index = KinoSearch::Simple->new(
17	path => $path,
18	language => 'en',
19	);
20
21	my $total_hits = $index->search(
22	query => $query_string,
23	offset => 0,
24	num_wanted => 100,
25	);
26
27	print "Total hits: $total_hits\n";
28
29	while ( my $hit = $index->fetch_hit_hashref ) {
30	print dump( $hit );
31	}
32