Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (20 sloc) 560 Bytes
#!/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";
}
Jump to Line
Something went wrong with that request. Please try again.