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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: printing largest hash value
by bmann (Priest) on Feb 22, 2005 at 05:00 UTC | |
by BrowserUk (Patriarch) on Feb 22, 2005 at 05:03 UTC |
In Section
Seekers of Perl Wisdom