recepies/netpipe-tcp/np2graphviz.pl

#!/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";
}


1	dpavlin	99	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			foreach my $file ( glob '/.np' ) {
7
8			my $direction = $file;
9			$direction =~ s/\.np$//;
10			my ( $from, $to ) = split(m{/},$direction,2);
11
12			my $line = `tail -1 $file`;
13			$line =~ s{^\s+}{};
14			$line =~ s{\s+$}{};
15			my ( $size, $speed, $rtt ) = split(/\s+/, $line);
16
17			warn "$from -> $to \| $size \| $speed \| $rtt\n";
18			}
19
20
21