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