trunk/scripts/bench_search.pl

#!/usr/bin/perl -w

# bench_search.pl - benchmark new and old implementation of search
#
# 05/06/2006 11:38:32 PM CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;
use blib;
use Benchmark qw/:all :hireswallclock/;
use Search::Estraier;

my $count = 100;
my $url = 'http://localhost:1978/node/cpan';

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

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

my $code_ref;
my $q = '';
my $l = 0;

foreach my $w (qw/full text search/) {
        $q .= " $w";
        $l++;

        # set search phrase
        $cond->set_phrase( $q );

        $code_ref->{'old_' . $l} = sub {
                my $nres = $node->search($cond, 0) or
                        die "error: ", $node->status,"\n";
        };

        $code_ref->{'new_' . $l} = sub {
                my $nres = $node->search_new($cond, 0) or
                        die "error: ", $node->status,"\n";
        };
}

use Data::Dumper;
print Dumper($code_ref);

timethese($count, $code_ref);
cmpthese($count, $code_ref);

1	#!/usr/bin/perl -w
2
3	# bench_search.pl - benchmark new and old implementation of search
4	#
5	# 05/06/2006 11:38:32 PM CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7	use strict;
8	use blib;
9	use Benchmark qw/:all :hireswallclock/;
10	use Search::Estraier;
11
12	my $count = 100;
13	my $url = 'http://localhost:1978/node/cpan';
14
15	# create and configure node
16	my $node = new Search::Estraier::Node(
17	url => $url,
18	user => 'admin',
19	passwd => 'admin',
20	croak_on_error => 1,
21	);
22
23	# create condition
24	my $cond = new Search::Estraier::Condition;
25
26	my $code_ref;
27	my $q = '';
28	my $l = 0;
29
30	foreach my $w (qw/full text search/) {
31	$q .= " $w";
32	$l++;
33
34	# set search phrase
35	$cond->set_phrase( $q );
36
37	$code_ref->{'old_' . $l} = sub {
38	my $nres = $node->search($cond, 0) or
39	die "error: ", $node->status,"\n";
40	};
41
42	$code_ref->{'new_' . $l} = sub {
43	my $nres = $node->search_new($cond, 0) or
44	die "error: ", $node->status,"\n";
45	};
46	}
47
48	use Data::Dumper;
49	print Dumper($code_ref);
50
51	timethese($count, $code_ref);
52	cmpthese($count, $code_ref);
53