Re: printing largest hash value


XP is just a number
	PerlMonks

Re: printing largest hash value

by demerphq (Chancellor)

on Feb 22, 2005 at 09:06 UTC ( [id://433288]=note: print w/replies, xml )

Need Help??

in reply to printing largest hash value

my %hash=();
my $highest;
my @highest=grep {defined $highest ? $hash{$_}==$highest : (($highest=
+$hash{$_}),1) } 
            sort { $hash{$b} <=> $hash{$a} || $a cmp $b } 
            keys %hash;
[download]

my %hash=();
my %rev;
my $highest=0;
for (keys %hash) {
  $rev{$hash{$_}}{$_}++;
  $highest=$hash{$_} if $highest < $hash{$_};
}
print sort keys %{$rev{$highest}};
[download]

---
demerphq