perl - 組み込み関数を使用せずにperlでハッシュを逆にする方法は？

Question

1) %hash = (
    1 => 'a',
    4 => 'g',
    7 => 'h'

）;

逆関数を使用せずに指定されたハッシュを逆にするWAP？

Answer 1

あなたは本当にPerlを学ぶべきです-あなたがそれを自分で学ぶときそれは本当に楽しいです。

それは本当にとても簡単です：

my %rev;
foreach my $key (keys %hash) {
    $rev{$hash{$key}} = $key;
}

Answer 2

TIMTOWTDI：

my %a = ( foo => 1, bar => 2 );    # original hash
my @a = %a;                        # copy to array
my @rev;                           # reversed list container
push @rev, pop @a while @a;        # fill @rev from the back forward
my %rev = @rev;                    # assign reversed list to hash

Answer 3

my %by_letter;
@by_letter{ values(%by_num) } = keys(%by_num);

また

my %by_letter = map { $by_num{$_} => $_ } keys(%by_num);