From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Mon, 28 May 2012 12:25:51 +0000 (+0200)
Subject: Add a script to correlate sender and receiver logs.
X-Git-Url: https://git.sesse.net/?p=bursty;a=commitdiff_plain;h=e840b0a696406ccc079fbc1902837280b30e224e;ds=sidebyside

Add a script to correlate sender and receiver logs.
---

diff --git a/correlate.pl b/correlate.pl
new file mode 100755
index 0000000..04cc9d4
--- /dev/null
+++ b/correlate.pl
@@ -0,0 +1,36 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+my $fh;
+my %seen_recv = ();
+
+# Receiver
+open $fh, "<", $ARGV[1]
+	or die "$ARGV[1]: $!";
+while (<$fh>) {
+	tr/\r\n//d;
+	/^(\d+)$/ or next;
+	$seen_recv{$1} = 1;
+}
+close $fh;
+
+# Sender
+open $fh, "<", $ARGV[0]
+	or die "$ARGV[0]: $!";
+while (<$fh>) {
+	tr/\r\n//d;
+	/^\d+(?: \d+)* $/ or next;
+	for my $n (split) {
+		if (exists($seen_recv{$n})) {
+			print "$n ";
+		} else {
+			print "$n* ";
+		}
+	}
+	print "\n";
+}
+close $fh;
+
+