recepies/netpipe-tcp/np2graphviz.pl

#!/usr/bin/perl

use warnings;
use strict;

my $graph;

my ($max,$min);

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";

        my $len = int($speed / 100);

        $graph->{ qq|"$from" -> "$to"| } = {
                size => $size,
                speed => $speed,
                rtt => $rtt,
        };

        $min ||= $speed;
        $min = $speed if $speed < $min;

        $max ||= $speed;
        $max = $speed if $speed > $max;

}

warn "# speed $min ... $max\n";

print qq|
digraph "netpipe" {
|,
join("\n", map {
        my $node = $_;
        my $speed = $graph->{$_}->{speed};
        my $c = 'ff0000';
        $c = '00ff00' if ( $speed /  100 ) > 1.5;
        $c = '0000ff' if ( $speed / 1000 ) > 1;
        $c = '8888ff' if ( $speed / 1000 ) > 2;
        my $label = $speed;
        $label =~ s/\.\d+//;
        qq|$node [ label="$label",color="#$c",len=$speed ]|;
} keys %$graph),
qq|
}
|;

1	dpavlin	99	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6	dpavlin	100	my $graph;
7
8			my ($max,$min);
9
10	dpavlin	99	foreach my $file ( glob '/.np' ) {
11
12			my $direction = $file;
13			$direction =~ s/\.np$//;
14			my ( $from, $to ) = split(m{/},$direction,2);
15
16			my $line = `tail -1 $file`;
17			$line =~ s{^\s+}{};
18			$line =~ s{\s+$}{};
19			my ( $size, $speed, $rtt ) = split(/\s+/, $line);
20
21			warn "$from -> $to \| $size \| $speed \| $rtt\n";
22	dpavlin	100
23			my $len = int($speed / 100);
24
25			$graph->{ qq\|"$from" -> "$to"\| } = {
26			size => $size,
27			speed => $speed,
28			rtt => $rtt,
29			};
30
31			$min \|\|= $speed;
32			$min = $speed if $speed < $min;
33
34			$max \|\|= $speed;
35			$max = $speed if $speed > $max;
36
37	dpavlin	99	}
38
39	dpavlin	100	warn "# speed $min ... $max\n";
40	dpavlin	99
41	dpavlin	100	print qq\|
42			digraph "netpipe" {
43			\|,
44			join("\n", map {
45			my $node = $_;
46			my $speed = $graph->{$_}->{speed};
47			my $c = 'ff0000';
48	dpavlin	165	$c = '00ff00' if ( $speed / 100 ) > 1.5;
49	dpavlin	100	$c = '0000ff' if ( $speed / 1000 ) > 1;
50			$c = '8888ff' if ( $speed / 1000 ) > 2;
51			my $label = $speed;
52			$label =~ s/\.\d+//;
53			qq\|$node [ label="$label",color="#$c",len=$speed ]\|;
54			} keys %$graph),
55			qq\|
56			}
57			\|;
58	dpavlin	99