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