X-Git-Url: https://git.jankratochvil.net/?p=massrebuild.git;a=blobdiff_plain;f=README;h=c74a50e0bc5ec3cea183907c866bdd9aa7a8f998;hp=9aacd59282b234dfb0d70651081fe6019ffa275f;hb=6800a0b64f1c9709c91a9778efe964cdde0cd0aa;hpb=6b155c0a5cfd3a0f63132147062ce09eea73b53b

diff --git a/README b/README
index 9aacd59..c74a50e 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-dnf install fedora-repos-rawhide mock /usr/bin/parallel /usr/bin/readelf nosync.{x86_64,i686} /usr/bin/iostat gdb
+dnf install fedora-repos-rawhide mock /usr/bin/parallel /usr/bin/readelf nosync.{x86_64,i686} /usr/bin/iostat gdb git /usr/bin/llvm-readelf
 echo 99|extendtesttime.sh
 setenforce 0
 swapoff -a
@@ -13,3 +13,14 @@ passwd
 passwd test
 scp -p run* stat debuginfosize test@
 vim run
+
+
+# DWZ vs. DT5 stddev:
+(cd build;find *src.rpm.dt5.rpm.rpms/ -type f -name "*.rpm" -printf "%p %s\n"|sed 's/.src.rpm.dt5.rpm/.src.rpm/'|sort >../rpmsizes-dt5)
+(cd build;find *src.rpm.rpms/         -type f -name "*.rpm" -printf "%p %s\n"                                   |sort >../rpmsizes-dwz)
+perl -e 'open F,"rpmsizes-dt5" or die;while (<F>) { m{^([^/]*)/} or die $_; $a{$1}=1; };close F;open F,"rpmsizes-dwz" or die;while (<F>) { m{^([^/]*)/} or die $_; next if !$a{$1}; print; } close F;' >rpmsizes-dwz-havingdt5
+# diff -u <(sed 's/ .*//' <rpmsizes-dwz-havingdt5) <(sed 's/ .*//' <rpmsizes-dt5)|less # OK as some /usr/lib/debug/.dwz/ are the only file of base *-debuginfo.rpm
+perl -lne 'm{^([^/]*)/[^/]* (\d+)$} or die;$p{$1}+=$2;END{for (sort keys %p){print $p{$_}}}' <rpmsizes-dwz-havingdt5 >rpmsizes-dwz-havingdt5.sum
+perl -lne 'm{^([^/]*)/[^/]* (\d+)$} or die;$p{$1}+=$2;END{for (sort keys %p){print $p{$_}}}' <rpmsizes-dt5           >rpmsizes-dt5.sum
+wc -l rpmsizes-dwz-havingdt5.sum rpmsizes-dt5.sum
+perl -MList::Util -MStatistics::Basic::StdDev -MData::Dumper -le 'sub r($){my($fn)=@_;open F,$fn or die;my @R;while (<F>) { /^(\d+)\n$/ or die $_; push @R,$1; } close F;return @R;}my @A=r "rpmsizes-dwz-havingdt5.sum";my @B=r "rpmsizes-dt5.sum";die if @A!=@B;my @C;for my $i (0..$#A) { my $C=$A[$i]/$B[$i];push @C,$C; } print "sum/sum=".(1-List::Util::sum(@A)/List::Util::sum(@B));print "avg(ratio)=".(1-List::Util::sum(@C)/@C);print "stddev=".Statistics::Basic::stddev(\@C);print Dumper \@C;'|less