#parse test codec output files.
# flac_5.flac
# 175906 of 175906
# Decode time - 27.74s
# File duration - 175.90s
# 634.10% realtime
#12.61MHz needed for realtime
if(scalar(@ARGV) != 2 && scalar(@ARGV) != 1){
print "Ussage: parser_testcodec.pl new_results old_results\n parser_testcodec.pl new_results\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\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];
}
#print for wiki
foreach $key (keys(%newfile)){
if(defined($oldfile{$key})){
print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | ".$newfile{$key}->[1]/$oldfile{$key}->[1] ."|\n";
}else{
print "| $key | $newfile{$key}->[0]"."% realtime | Decode time - $newfile{$key}->[2]s | $newfile{$key}->[1]"."MHz | - |\n";
}
}