Parent Directory | Revision Log
parse last line of every */*.np file
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |