23 lines
560 B
Perl
23 lines
560 B
Perl
#!/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";
|
|
}
|