http://qs321.pair.com?node_id=433246


in reply to printing largest hash value

Is there any Perl program that isn't simplified using List::Util? Why it never made it into the core, when so much other dross has....

#! perl -slw use strict; use List::Util qw[ max ]; my %hash = ( red => 2, pink => 1, orange => 4, black => 3, blue => 4 ); my $max = max values %hash; print "$_ => $hash{ $_ }" for sort grep{ $hash{ $_ } == $max } keys %h +ash; __END__ P:\test>433230 blue => 4 orange => 4

Examine what is said, not who speaks.
Silence betokens consent.
Love the truth but pardon error.