diff options
Diffstat (limited to 'TOOLS/perlbench.pl')
-rwxr-xr-x | TOOLS/perlbench.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/TOOLS/perlbench.pl b/TOOLS/perlbench.pl new file mode 100755 index 0000000000..7b285d9f07 --- /dev/null +++ b/TOOLS/perlbench.pl @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +use strict; +use constant CMD => "./fastmem2-k7"; + +sub dobench { + my $i; + my ($runs, $sleep, $command) = @_; + for($i = 0; $i < $runs; $i++) { + sleep $sleep; + system $command; + } +} + +print "Single run of sse bench with 1sec sleep:\n"; +&dobench(1,1,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 0sec sleep:\n"; +&dobench(10,0,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 1sec sleep:\n"; +&dobench(10,1,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 2sec sleep:\n"; +&dobench(10,2,CMD); +print "Sleeping 10seconds before starting next bench!\n"; +sleep 10; +print "10 runs of sse bench with 3sec sleep:\n"; +&dobench(10,3,CMD); +print "Bench finished!\n"; |