Return to stats.pl CVS log

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

Annotation of embedaddon/ipsec-tools/src/racoon/stats.pl, revision 1.1.1.1

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