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	#!/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