view TOOLS/perlbench.pl @ 20999:1cf17aafeca1

group together "debug" and "psnr", note that "threads" option is featured on 1.2.x release

+
鐃緒申#!/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";