crypto/dist/ipsec-tools/src/racoon/stats.pl

   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 }