parse last line of every */*.np file

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@99 191e9f34-6774-4a6d-acfc-7664dacd4a2a

diff --git a/recepies/netpipe-tcp/np2graphviz.pl b/recepies/netpipe-tcp/np2graphviz.pl
new file mode 100755 (executable)
index 0000000..e546c25
--- /dev/null
+++ b/recepies/netpipe-tcp/np2graphviz.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+foreach my $file ( glob '*/*.np' ) {
+
+       my $direction = $file;
+       $direction =~ s/\.np$//;
+       my ( $from, $to ) = split(m{/},$direction,2);
+
+       my $line = `tail -1 $file`;
+       $line =~ s{^\s+}{};
+       $line =~ s{\s+$}{};
+       my ( $size, $speed, $rtt ) = split(/\s+/, $line);
+
+       warn "$from -> $to | $size | $speed | $rtt\n";
+}
+
+
+