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";
$ perl -le'
my %files = ( one => 1, thiry => 30, four => 4, never => 997, forever =>
100001, five => 5 );
my @max;
for my $key ( keys %files ) {
if ( $files{ $key } > $max[ 1 ] ) {
@max[ 0, 1 ] = ( $key, $files{ $key } );
}
}
print $max[ 0 ];
'
forever
John
--
Those people who think they know everything are a great
annoyance to those of us who do. -- Isaac Asimov
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
