blob: c31b54ebd06ba19d87187bce344866fd43011c51 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/bin/perl
#parse test codec output files and give wiki formatted results.
if(scalar(@ARGV) != 2 && scalar(@ARGV) != 1){
print "Usage: parser_testcodec.pl new_results old_results (compares two results)\n".
" parser_testcodec.pl new_results (formats just one result)\n";
}
my %newfile;
#open new benchmark file
open FILE, $ARGV[0];
while ($line = <FILE>){
chomp $line;
$filename=$line;
#print $filename."\n";
$line = <FILE>;
$line = <FILE>;
$line =~ m/-\s([0-9\.]*)s/;
$decodetime = $1;
$line = <FILE>;
$line = <FILE>;
$line =~ m/([0-9\.]*)\%/;
$realtime = $1;
$line = <FILE>;
$line =~ m/([0-9\.]*)MHz/;
$mhz=$1;
#consume blank line
$line = <FILE>;
#store in hash
$newfile{$filename} = [$realtime, $mhz, $decodetime];
#| flac_5.flac | 175906 of 175906 | Decode time - 27.74s | File duration - 175.90s | 634.10% realtime | 12.61MHz |
#print "| $filename | Decode time - $decodetime"."s | $realtime"."% realtime | $mhz"."MHz |\n";
#print "$filename\t$realtime\t$mhz\n";
}
#open old benchmark file
my %oldfile;
open FILE, $ARGV[1];
while ($line = <FILE>){
chomp $line;
$filename=$line;
#print $filename."\n";
$line = <FILE>;
$line = <FILE>;
$line =~ m/-\s([0-9\.]*)s/;
$decodetime = $1;
$line = <FILE>;
$line = <FILE>;
$line =~ m/([0-9\.]*)\%/;
$realtime = $1;
$line = <FILE>;
$line =~ m/([0-9\.]*)MHz/;
$mhz=$1;
#consume blank line
$line = <FILE>;
#store in hash
$oldfile{$filename} = [$realtime, $mhz, $decodetime];
}
my @keylist;
@keylist = sort {$a cmp $b} keys(%newfile);
#print for wiki
my $oldkey = "nothing_";
foreach $key (@keylist){
#check if this is a new format and add the table heading
$oldkey =~ m/([a-z1-9]*)/;
if(!($key =~ m/$1_/i)){
print "| *MP3* |||||\n" if($key =~ m/lame/);
print "| *AAC-LC* |||||\n" if($key =~ m/nero/);
print "| *Vorbis* |||||\n" if($key =~ m/vorbis/);
print "| *WMA Standard* |||||\n" if($key =~ m/wma_/);
print "| *WAVPACK* |||||\n" if($key =~ m/wv/);
print "| *Nero AAC-HE* |||||\n" if($key =~ m/aache/);
print "| *Apple Lossless* |||||\n" if($key =~ m/applelossless/);
print "| *Monkeys Audio* |||||\n" if($key =~ m/ape/);
print "| *Musepack* |||||\n" if($key =~ m/mpc/);
print "| *FLAC* |||||\n" if($key =~ m/flac/);
print "| *Cook (RA)* |||||\n" if($key =~ m/cook/);
print "| *AC3 (A52)* |||||\n" if($key =~ m/a52/);
print "| *atrac3* |||||\n" if($key =~ m/atrac3/);
print "| *True Audio* |||||\n" if($key =~ m/true/);
print "| *MP2* |||||\n" if($key =~ m/toolame/);
#potiential future rockbox codecs
print "| *atrac* |||||\n" if($key =~ m/atrac1/);
print "| *WMA Professional* |||||\n" if($key =~ m/wmapro/);
print "| *WMA Lossless* |||||\n" if($key =~ m/wmal/);
}
if(defined($oldfile{$key})){
$str=sprintf("%1.2f",($oldfile{$key}->[1]-$newfile{$key}->[1])/$oldfile{$key}->[1]*100+100 );
print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | ".sprintf("%2.2f",$newfile{$key}->[1])."MHz | ".$str."%|\n";
}elsif(scalar(@ARGV) ==2){
print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | - |\n";
} else{
print "| $key | ". $newfile{$key}->[0]."% realtime | Decode time - $newfile{$key}->[2]s | ".sprintf("%2.2f",$newfile{$key}->[1])."MHz |\n";
}
$oldkey=$key;
}
|
