View difference between Paste ID: m108d0c98 and

 
 #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];
 
 
 
 }
 
 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-z]*)\_/;
 
 
 	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 "| *Monkey's Audio*  |||||\n" if($key =~ m/ape/);
 		print "| *Musepack*  |||||\n" if($key =~ m/mpc/);
 		print "| *FLAC*  |||||\n" if($key =~ m/flac/);
 
 	}
 
 	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";
 	}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 | $newfile{$key}->[1]"."MHz |\n";
 	}
 	$oldkey=$key;
 }