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