X-Git-Url: http://git.jankratochvil.net/?p=massrebuild.git;a=blobdiff_plain;f=stat;h=fe70111e83ee451dfc421431d0848523fcffa41f;hp=4972065eb81b25da51bacb6bb2904a93b2fb6b21;hb=175e9338f03f76a55eb0e4e127efb737825b4761;hpb=730ebcb42a8973b5bec3de0fbbe5c362b088378d

diff --git a/stat b/stat
index 4972065..fe70111 100755
--- a/stat
+++ b/stat
@@ -72,7 +72,7 @@ sub onesrcrpm($) {
   } else {
     ++$equalbyfile;
   }
-  push @{$filestat{$dwzfilesize/$dtfilesize}},"$srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
+  push @{$filestat{$dwzfilesize-$dtfilesize}},sprintf("%.2f",100*$dwzfilesize/$dtfilesize).": $srcrpm dwzfilesize=$dwzfilesize dtfilesize=$dtfilesize" if $dtfilesize;
   if ($dwzrpmsize==0&&$dtrpmsize==0) {
     ++$emptybyrpm;
   } elsif ($dwzrpmsize<$dtrpmsize) {
@@ -130,20 +130,17 @@ print "dwzwinbyrpm =$dwzwinbyrpm" ." dtwinbyrpm =$dtwinbyrpm" ." equalbyrpm =$eq
 print "dwzfilesizetot=$dwzfilesizetot"." dtfilesizetot=$dtfilesizetot"." = ".($dwzfilesizetot/$dtfilesizetot*100)."%\n";
 print " dwzrpmsizetot=$dwzrpmsizetot" ."  dtrpmsizetot=$dtrpmsizetot" ." = ".( $dwzrpmsizetot/ $dtrpmsizetot*100)."%\n";
 #print "equal: $_\n" for @{$filestat{1}};
-my @sorted=map({ my $r=$_; map(($_,$r),@{$filestat{$_}}); } sort {$a<=>$b;} keys %filestat);
+my @sorted=map @{$filestat{$_}},sort {$a<=>$b;} keys(%filestat);
 sub out($) {
   my($ix)=@_;
-  my $name=$sorted[2*$ix+0];
-  my $ratio=$sorted[2*$ix+1];
-  print(sprintf("%.2f",$ratio*100)."%: $name\n");
+  print($sorted[$ix]."\n");
 }
-my $sorted=@sorted/2;
 if (@ARGV) {
-  out $_ for 0..$sorted-1;
+  out $_ for 0..$#sorted;
 } else {
   my $p=5;
   out $_ for 0..$p-1;
-  out $_ for $sorted-$p..$sorted-1;
+  out $_ for @sorted-$p..$#sorted;
 }
 print "debuginfod download size: ";
 my $dwzsizetot=0;