From fc6f7214ed765c6a1f76d84136d52424e747925e Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Mon, 28 May 2012 15:10:40 +0200
Subject: [PATCH] Add a simple Perl script to tally statistics (probably
 requires more polish).

---
 summarize.pl | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 summarize.pl

diff --git a/summarize.pl b/summarize.pl
new file mode 100755
index 0000000..545fa0e
--- /dev/null
+++ b/summarize.pl
@@ -0,0 +1,27 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my %buckets = ();
+
+while (<>) {
+	chomp;
+	my (@x) = split /\s+/, $_;
+
+	my $num_packets = scalar @x;
+	my $num_drops = grep { /\*/ } @x;
+
+	$buckets{$num_packets}->{'num_bursts'}++;
+	$buckets{$num_packets}->{'num_drops'} += $num_drops;
+	if ($num_drops > 0) {
+		$buckets{$num_packets}->{'bursts_with_drops'}++;
+	}
+}
+
+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}->{'num_drops'} / ($n * $buckets{$n}->{'num_bursts'});
+	printf "%3d: drop_rate %.5f  drop_event_rate %.5f\n",
+		$n, $drop_rate, $drop_event_rate; 
+}
-- 
2.39.2