Rick wrote:
trying out getting lasrgest key(by value) but below is not working...
help please.
my %files=%{{"one" =>"1", "thiry" =>"30", "four" =>"4", "never"
=>"997", "forever" =>"100001", "five" =>"5"}};
my $max;
print join(" ",keys %files),"\n";
=pod
grep($max=($files{$_} > $max )? $_ : $max,keys %files);
=cut
for my $jot (keys %files) {
print "$jot $files{$jot}\n";
}
for my $now (keys %files) {
$max = $now if $now > $max; }
print "<$max>\n";
it's printing out
thiry one five forever four never
thiry 30
one 1
five 5
forever 100001
four 4
never 997
<>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
