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;
        $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	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	my $graph;
7
8	my ($max,$min);
9
10	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
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	}
38
39	warn "# speed $min ... $max\n";
40
41	print qq\|
42	digraph "netpipe" {
43	\|,
44	join("\n", map {
45	my $node = $_;
46	my $speed = $graph->{$_}->{speed};
47	my $c = 'ff0000';
48	$c = '00ff00' if ( $speed / 100 ) > 1;
49	$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