Return to stats.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / ipsec-tools / src / racoon

Initial revision

    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: }