Perlでハッシュを使った値に基づいてキーを取得する方法は？

Question

どのように私はハッシュを使用してPerlのVALUEに基づいてキーを取得するのですか？ 私が持っている場合：

"dime"=>"4" 
"nickle"=>"5" 
"quarter"=>"2" 
"dollar"=>"6" 

は今、私はそれらをソートし、最高は6 Iのwannaは「ドル」をつかむことができるようです。ここに私が試したものです：

# sort money based on count 
my @sorted = sort {$deposit->{$b} cmp $deposit->{$a}} keys %$deposit; 
    my %rhash; 
    @rhash{values %deposit} = keys %deposit; 

    $owner = $rhash->{$sorted[0]}; #get highest count 

Answer 1

あなたの値が一意である場合、あなたはこのようにマップを逆にすることができます：

my %rev = map { $deposit->{$_} => $_ } keys %$deposit; 

を

Answer 2

並べ替え[$depositが記載されているハッシュへの参照であると仮定] O（n log n）であり、これは必要以上の仕事である。最高を見つけることは、O（n）アルゴリズムを用いて行うことができる。ここに「最高水準点」アルゴリズムを使用した例があります。

#!/usr/bin/perl 
use warnings; 
use strict; 

my %deposit = (
    "dime"=>"4", 
    "nickle"=>"5", 
    "quarter"=>"2", 
    "dollar"=>"6", 
); 

my $hi_key; 
foreach (keys %deposit) { 
    $hi_key = $_ if $deposit{$_} > $deposit{$hi_key}; 
} 

print "high is: $hi_key => $deposit{$hi_key}\n";