[apple/ipsec.git] / ipsec-tools / racoon / stats.pl

#!/usr/bin/perl
# usage:
# % cat /var/log/racoon-stats.log | perl stats.pl

while(<STDIN>) {
	chomp;
	($a, $a, $a, $a, $a, $b) = split(/\s+/, $_, 6);
	($a, $c) = split(/:/, $b, 2);
	$r{$a} += $c;
	$t{$a}++;
}

foreach (sort keys %t) {
	printf "%s: total=%d avg=%8.6f\n", $_, $t{$_}, $r{$_}/$t{$_};
}
Commit	Line	Data
52b7d2ce A	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	}