projects
/
sysadmin-cookbook
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
parse last line of every */*.np file
[sysadmin-cookbook]
/
recepies
/
netpipe-tcp
/
np2graphviz.pl
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