41 lines
1,009 B
Perl
Executable file
41 lines
1,009 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
while(<>) {
|
|
if(/^(\d+) (\d+) (\d+) (\d+)/) {
|
|
$time = $1;
|
|
|
|
if($last_time{$2} != 0 &&
|
|
$time - $last_time{$2} > $max_timediff{$2}) {
|
|
$max_timediff{$2} = $time - $last_time{$2};
|
|
$max_timediff_time{$2} = $time;
|
|
}
|
|
$last_time{$2} = $time;
|
|
$seqno = $3;
|
|
|
|
if(! defined $first_seqno{$2}) {
|
|
$first_seqno{$2} = $seqno;
|
|
}
|
|
|
|
if($seqno < $last_seqno{$2}) {
|
|
$seqno_add{$2} += $last_seqno{$2} + 1;
|
|
}
|
|
if($last_seqno{$2} == $seqno) {
|
|
$dup{$2}++;
|
|
}
|
|
$last_seqno{$2} = $seqno;
|
|
$hops{$2} += $4;
|
|
$num{$2}++;
|
|
}
|
|
}
|
|
|
|
|
|
foreach $n (sort {$a <=> $b} keys %hops) {
|
|
print "Node $n packets " . ($num{$n} - $dup{$n}) .
|
|
" duplicates $dup{$n} dropped " .
|
|
((1 + $last_seqno{$n} + $seqno_add{$n} - $first_seqno{$n}) - ($num{$n} - $dup{$n}));
|
|
print " ratio ";
|
|
printf "%.2f", ($num{$n} - $dup{$n}) / (1 + $last_seqno{$n} + $seqno_add{$n} - $first_seqno{$n});
|
|
# print " max timediff " . $max_timediff{$n}/20;
|
|
print "\n";
|
|
}
|
|
|