Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add parse_testcodec.pl, a script for parsing and comparing test_codec.c logs and formatting them for the wiki. Written by me.

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@27499 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Michael Giacomelli 2010-07-19 21:53:12 +00:00
parent 8331bf1d7e
commit 92fdebb1f2
1 changed files with 121 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

121
utils/parse_testcodec.pl Executable file
View file

@ -0,0 +1,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;
}