1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| #!/usr/bin/perl
| # usage:
| # % cat /var/log/racoon-stats.log | perl stats.pl
|
| while(<STDIN>) {
| chomp;
| ($a, $a, $a, $a, $a, $b) = split(/\s+/, $_, 6);
| ($a, $c) = split(/:/, $b, 2);
| $r{$a} += $c;
| $t{$a}++;
| }
|
| foreach (sort keys %t) {
| printf "%s: total=%d avg=%8.6f\n", $_, $t{$_}, $r{$_}/$t{$_};
| }
|
|
