#!/usr/bin/perl
#
#
#  This script will iterate through each benchmark 5 times, looking up 500
#  random records each time.  Results will be printed to STDOUT.

my @benchmarks=('getdata-steve', 'getdata-sergey');
my $numrecords=$ARGV[0];
my $numindb=$ARGV[1];
($numrecords) || ($numrecords=50);
($numindb) || ($numindb=79998);

my $iterations=5;

foreach (@benchmarks) {
    print "$_:\t";
    for ($i=1; $i<=$iterations; $i++) {
	my $timer=`/usr/bin/time -f "%E" perl $_ $numrecords 0 $numindb 2>&1`;
	chomp $timer;
	print "$timer\t";
    }
    print "\n";
}
