Reverse the key and value : reverse « Hash « Perl






  1. Perl
  2. Hash
  3. reverse

Reverse the key and value

   

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

my %hash = ('Key1' => 'Value1', 'Key2' => 'Value2');
print "$hash{Key1}\n"; # print 'Value1'

foreach (keys %hash) {
    $hash{$hash{$_}} = $_;
    delete $hash{$_};
}
print "$hash{Value1}\n"; # print 'Key1'








Related examples in the same category

1.Reverse a hash
2.Reverse a hash: use key as the value, and value as the key
3.Reverse the hash and use function each to get each pair