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

        my $rev = qq|"$to" -> "$from"|;

        # make edge bi-directional if speed difference is less then 10%
        if ( $graph->{$rev} && abs($graph->{$rev}->{speed}->[0] - $speed) < ($speed/10) ) {
                $graph->{$rev}->{speed}->[1] = int($speed);
                $graph->{$rev}->{dir} = 'both';
        } else {
                $graph->{ qq|"$from" -> "$to"| } = {
                        size => $size,
                        speed => [ int($speed) ],
                        rtt => $rtt,
                        dir => 'forward',
                };
        }

        $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->{$node}->{speed} };
        my $speed = 0;
        $speed += $_ foreach @speed;
        $speed /= $#speed + 1;
        my $c = 'ff0000';
        $c = '00ff00' if ( $speed /  100 ) > 5;
        $c = '0000ff' if ( $speed / 1000 ) > 1;
        $c = '8888ff' if ( $speed / 1000 ) > 2;
        my $label = qq|labelfontsize=10,weight=$speed,|;
        $label .= qq|headlabel=$speed[0],| if $speed[0];
        $label .= qq|taillabel=$speed[1],| if $speed[1];
        $label .= qq|style=dashed,| if $graph->{$node}->{dir} eq 'both';
        qq|$node [ $label color="#$c",dir=$graph->{$node}->{dir} ]|;
} 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	dpavlin	172	my $rev = qq\|"$to" -> "$from"\|;
26	dpavlin	100
27	dpavlin	172	# make edge bi-directional if speed difference is less then 10%
28			if ( $graph->{$rev} && abs($graph->{$rev}->{speed}->[0] - $speed) < ($speed/10) ) {
29			$graph->{$rev}->{speed}->[1] = int($speed);
30			$graph->{$rev}->{dir} = 'both';
31			} else {
32			$graph->{ qq\|"$from" -> "$to"\| } = {
33			size => $size,
34			speed => [ int($speed) ],
35			rtt => $rtt,
36			dir => 'forward',
37			};
38			}
39
40	dpavlin	100	$min \|\|= $speed;
41			$min = $speed if $speed < $min;
42
43			$max \|\|= $speed;
44			$max = $speed if $speed > $max;
45
46	dpavlin	99	}
47
48	dpavlin	100	warn "# speed $min ... $max\n";
49	dpavlin	99
50	dpavlin	100	print qq\|
51			digraph "netpipe" {
52			\|,
53			join("\n", map {
54			my $node = $_;
55	dpavlin	172	my @speed = @{ $graph->{$node}->{speed} };
56			my $speed = 0;
57			$speed += $_ foreach @speed;
58			$speed /= $#speed + 1;
59	dpavlin	100	my $c = 'ff0000';
60	dpavlin	172	$c = '00ff00' if ( $speed / 100 ) > 5;
61	dpavlin	100	$c = '0000ff' if ( $speed / 1000 ) > 1;
62			$c = '8888ff' if ( $speed / 1000 ) > 2;
63	dpavlin	172	my $label = qq\|labelfontsize=10,weight=$speed,\|;
64			$label .= qq\|headlabel=$speed[0],\| if $speed[0];
65			$label .= qq\|taillabel=$speed[1],\| if $speed[1];
66			$label .= qq\|style=dashed,\| if $graph->{$node}->{dir} eq 'both';
67			qq\|$node [ $label color="#$c",dir=$graph->{$node}->{dir} ]\|;
68	dpavlin	100	} keys %$graph),
69			qq\|
70			}
71			\|;
72	dpavlin	99