mws/trunk/search.pl

#!/usr/bin/perl -w

use Data::Dumper;
use MWS;

my $debug = 1;

my $mws = MWS->new('index');

my $s=join(" ",@ARGV);

my $results = $mws->search($s);
print "$results results...\n";

while (my $r = $mws->fetch_result()) {
        print Dumper($r);

}
1	#!/usr/bin/perl -w
2
3	use Data::Dumper;
4	use MWS;
5
6	my $debug = 1;
7
8	my $mws = MWS->new('index');
9
10	my $s=join(" ",@ARGV);
11
12	my $results = $mws->search($s);
13	print "$results results...\n";
14
15	while (my $r = $mws->fetch_result()) {
16	print Dumper($r);
17
18	}