• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1#!/usr/bin/perl
2# usage:
3# % cat /var/log/racoon-stats.log | perl stats.pl
4
5while(<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
13foreach (sort keys %t) {
14	printf "%s: total=%d avg=%8.6f\n", $_, $t{$_}, $r{$_}/$t{$_};
15}
16