view TOOLS/perlbench.pl @ 18650:587abd8f3dab

Except for missing cd-dvd.xml and codecs.xml, German xml docs should be complete, synced and corrected :) Here we go: bugreports.xml: * r18600: xml docs: CVS --> Subversion * r18552: URL fix bugs.xml, audio.xml, usage.xml, faq.xml, tvinput.xml, documentation.xml: * fix "in sync with" tag skin.xml: * review * r18600: xml docs: CVS --> Subversion * r17975: Rename the default GUI skins directory from 'Skin' to 'skins' install.xml: * r17975: Rename the default GUI skins directory from 'Skin' to 'skins' * r17707: New website structure, the /homepage subdirectory is gone. * r17462: s/LIVE.COM/LIVE555/ + URL update video.xml: * tiny wording fix mail-lists.xml: * r18606: Fix mailing list name. * r18600: xml docs: CVS --> Subversion

#!/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";