Hi Khariton,
Yes you are right, for my previous node I just show how to get the maximum value in a hash. Now, I had updated the code, that will get the maximum value, as well as the corresponding keys.
# get values with numerical sort
@values = sort {$a<=>$b} values %hash;
# process each element
foreach (keys %hash)
{
# get the key name of the maximum value
print "\nkey : $_ : value $hash{$_}" if ($values[$#values] == $has
+h{$_});
}
|