Mercurial > mplayer.hg
comparison TOOLS/perlbench.pl @ 576:5cbbf47cae1e
fastmemcpy benchmark by Felix Buenemann
author | arpi_esp |
---|---|
date | Sun, 22 Apr 2001 16:09:23 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
575:3fde7340afd5 | 576:5cbbf47cae1e |
---|---|
1 #!/usr/bin/perl -w | |
2 use strict; | |
3 use constant CMD => "./fastmem2-k7"; | |
4 | |
5 sub dobench { | |
6 my $i; | |
7 my ($runs, $sleep, $command) = @_; | |
8 for($i = 0; $i < $runs; $i++) { | |
9 sleep $sleep; | |
10 system $command; | |
11 } | |
12 } | |
13 | |
14 print "Single run of sse bench with 1sec sleep:\n"; | |
15 &dobench(1,1,CMD); | |
16 print "Sleeping 10seconds before starting next bench!\n"; | |
17 sleep 10; | |
18 print "10 runs of sse bench with 0sec sleep:\n"; | |
19 &dobench(10,0,CMD); | |
20 print "Sleeping 10seconds before starting next bench!\n"; | |
21 sleep 10; | |
22 print "10 runs of sse bench with 1sec sleep:\n"; | |
23 &dobench(10,1,CMD); | |
24 print "Sleeping 10seconds before starting next bench!\n"; | |
25 sleep 10; | |
26 print "10 runs of sse bench with 2sec sleep:\n"; | |
27 &dobench(10,2,CMD); | |
28 print "Sleeping 10seconds before starting next bench!\n"; | |
29 sleep 10; | |
30 print "10 runs of sse bench with 3sec sleep:\n"; | |
31 &dobench(10,3,CMD); | |
32 print "Bench finished!\n"; |