Cleanup in summarize.pl.

[bursty] / summarize.pl

diff --git a/summarize.pl b/summarize.pl
index 813023d131258b8a8794d990583cc5d2945d42ba..917c548b3394bfe4221ee3617299442a019b4ef8 100755 (executable)
--- a/summarize.pl
+++ b/summarize.pl
@@ -20,8 +20,12 @@ while (<>) {
 }
 
 for my $n (sort { $a <=> $b } keys %buckets) {
-       my $drop_rate = $buckets{$n}->{'num_drops'} / ($n * $buckets{$n}->{'num_bursts'});
-       my $drop_event_rate = ($buckets{$n}->{'bursts_with_drops'} // 0) / $buckets{$n}->{'num_bursts'};
+       my $num_bursts = $buckets{$n}->{'num_bursts'} // 0;
+       my $num_drops = $buckets{$n}->{'num_drops'} // 0;
+       my $bursts_with_drops = $buckets{$n}->{'bursts_with_drops'} // 0;
+
+       my $drop_rate = $num_drops / ($n * $num_bursts);
+       my $drop_event_rate = $bursts_with_drops / $num_bursts;
        printf "%3d: drop_rate %.5f  drop_event_rate %.5f\n",
                $n, $drop_rate, $drop_event_rate; 
 }