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;
$node->set_url("http://localhost:1978/node/test");
$node->set_auth("admin","admin");

# 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)) {
        # 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			my $node = new Search::Estraier::Node;
14			$node->set_url("http://localhost:1978/node/test");
15			$node->set_auth("admin","admin");
16
17			# create condition
18			my $cond = new Search::Estraier::Condition;
19
20			# set search phrase
21			$cond->set_phrase("rainbow AND lullaby");
22
23			my $nres = $node->search($cond, 0);
24			if (defined($nres)) {
25			# for each document in results
26			for my $i ( 0 ... $nres->doc_num - 1 ) {
27			# get result document
28			my $rdoc = $nres->get_doc($i);
29			# display attribte
30			print "URI: ", $rdoc->attr('@uri'),"\n";
31			print "Title: ", $rdoc->attr('@title'),"\n";
32			print $rdoc->snippet,"\n";
33			}
34			} else {
35			die "error: ", $node->status,"\n";
36			}