in reply to Re: clusters with hashes
in thread clusters with hashes
my %clustertotal; my %clustercount; foreach my $servername (keys %servers) { $clustertotal{$servers{$servername}} += get_cpu($servername); $clustercount{$servers{$servername}}++; }; print "$_:\t".($clustertotal{$_}/$clustercount{$_})."\n" foreach sort +keys %clusters;
|
|---|