trunk/scripts/example_searcher.pl

#!/usr/bin/perl -w

use strict;
use Search::Estraier;

=head1 NAME

example_searcher.pl - example searcher for Search::Estraier

=cut

# create and configure node
my $node = new Search::Estraier::Node(
        url => 'http://localhost:1978/node/test',
        user => 'admin',
        passwd => 'admin',
        croak_on_error => 1,
);

# create condition
my $cond = new Search::Estraier::Condition;

# set search phrase
$cond->set_phrase("rainbow AND lullaby");

my $nres = $node->search($cond, 0);

if (defined($nres)) {
        print "Got ", $nres->hits, " results\n";

        # for each document in results
        for my $i ( 0 ... $nres->doc_num - 1 ) {
                # get result document
                my $rdoc = $nres->get_doc($i);
                # display attribte
                print "URI: ", $rdoc->attr('@uri'),"\n";
                print "Title: ", $rdoc->attr('@title'),"\n";
                print $rdoc->snippet,"\n";
        }
} else {
        die "error: ", $node->status,"\n";
}
1	dpavlin	68	#!/usr/bin/perl -w
2
3			use strict;
4			use Search::Estraier;
5
6			=head1 NAME
7
8			example_searcher.pl - example searcher for Search::Estraier
9
10			=cut
11
12			# create and configure node
13	dpavlin	101	my $node = new Search::Estraier::Node(
14			url => 'http://localhost:1978/node/test',
15			user => 'admin',
16			passwd => 'admin',
17			croak_on_error => 1,
18			);
19	dpavlin	68
20			# create condition
21			my $cond = new Search::Estraier::Condition;
22
23			# set search phrase
24			$cond->set_phrase("rainbow AND lullaby");
25
26			my $nres = $node->search($cond, 0);
27	dpavlin	101
28	dpavlin	68	if (defined($nres)) {
29	dpavlin	102	print "Got ", $nres->hits, " results\n";
30
31	dpavlin	68	# for each document in results
32			for my $i ( 0 ... $nres->doc_num - 1 ) {
33			# get result document
34			my $rdoc = $nres->get_doc($i);
35			# display attribte
36			print "URI: ", $rdoc->attr('@uri'),"\n";
37			print "Title: ", $rdoc->attr('@title'),"\n";
38			print $rdoc->snippet,"\n";
39			}
40			} else {
41			die "error: ", $node->status,"\n";
42			}