search for: 0aprintf

...digest};=0A = $h{$digest}++;=0A }=0A $blocks++;=0A}=0A=0Amy %hist;=0Amy $lonely = =3D 0;=0Aforeach (keys %h) {=0A my $n =3D $h{$_};=0A if ($n > 1) {=0A= $hist{$n} =3D 0 unless exists $hist{$n};=0A $hist{$n}++;=0A = } else {=0A $lonely++;=0A }=0A}=0A=0Aprintf ("blocks of zeros:= %s / %s\t%.1f%%\n", $zeroes, $blocks, 100 * $zeroes = / $blocks);=0Aprintf ("blocks that could not be deduplicated: %s / %s\t%.1f= %%\n", $lonely, $blocks, 100 * $lonely / $blocks);=0Aprint "\n";=0Aforeach = (sort { $b <=3D...