Build/cdbuild/summary.pl


1
2
3
4
5
6
7
8
9
10

#/texlive/texmf-dist/lists/fonts1/fontmisc : 419840
while (<>) {
    chop;
    ($bundle,$size) = /.*lists.([^\/]*)\/.*: (.*).../;
    $Sizes{$bundle} = $Sizes{$bundle} + $size;
}
foreach $i (keys %Sizes) {
    $S=$Sizes{$i}/1000;
    print "p_",$i,"_du=\'$S\'\n";
}