48 lines
1.8 KiB
Perl
Executable file
48 lines
1.8 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
|
|
## This perl script generates the input to timer.pl, which in turn
|
|
## generates the input to plotting.pl, which generates performance
|
|
## graphs. :)
|
|
|
|
open(LLADD_THREADED, ">LLADD_THREADED.script" );
|
|
open(LLADD_LOGICAL, ">LLADD_LOGICAL.script" );
|
|
open(LLADD_PHYSICAL, ">LLADD_PHYSICAL.script" );
|
|
open(LLADD_RAW_PHYSICAL, ">LLADD_RAW_PHYSICAL.script");
|
|
open(BDB_RAW_INSERT, ">BDB_RAW_INSERT.script" );
|
|
open(BDB_HASH_INSERT, ">BDB_HASH_INSERT.script" );
|
|
|
|
open(EVERYTHING, ">EVERYTHING.script" );
|
|
|
|
for(my $i = 1; $i <= 10; $i += .5) {
|
|
my $insert_count = $i * 100000;
|
|
|
|
my $threaded_insert_count = $insert_count / 200;
|
|
|
|
print LLADD_THREADED "./logicalMultThreaded 200 $threaded_insert_count\n";
|
|
print LLADD_LOGICAL "./logicalHash 1 $insert_count\n";
|
|
print LLADD_PHYSICAL "./naiveHash 1 $insert_count\n";
|
|
print LLADD_RAW_PHYSICAL "./arrayListSet 1 $insert_count\n";
|
|
print BDB_RAW_INSERT "./berkeleyDB/bdbRaw 1 $insert_count\n";
|
|
print BDB_HASH_INSERT "./berkeleyDB/bdbHash 1 $insert_count\n";
|
|
|
|
print EVERYTHING "./logicalMultThreaded 200 $threaded_insert_count\n";
|
|
print EVERYTHING "./logicalHash 1 $insert_count\n";
|
|
print EVERYTHING "./naiveHash 1 $insert_count\n";
|
|
print EVERYTHING "./arrayListSet 1 $insert_count\n";
|
|
print EVERYTHING "./berkeleyDB/bdbRaw 1 $insert_count\n";
|
|
if($i < 4) {
|
|
print EVERYTHING "./berkeleyDB/bdbHash 1 $insert_count\n";
|
|
}
|
|
|
|
}
|
|
|
|
close(LLADD_THREADED);
|
|
close(LLADD_LOGICAL);
|
|
close(LLADD_PHYSICAL);
|
|
close(LLADD_RAW_PHYSICAL);
|
|
close(BDB_RAW_INSERT);
|
|
close(BDB_HASH_INSERT);
|
|
close(EVERYTHING);
|