Mastering Modern Perl: Writing Efficient and Maintainable Code/

...

/

Solution Review: Reverse a Hash

Solution Review: Reverse a Hash

See the solution to the exercise on reversing a hash.

We'll cover the following...

Solution

Let’s look at the solution before jumping into the explanation:

Press + to interact
# Assume that %straight is already defined
my %inverted;
foreach my $k (keys %straight) {
      $inverted{$straight{$k}} = $k;
}
 
#loop for printing the inverted hash
foreach my $element (sort keys %inverted) {
   say "$element => '$inverted{$element}'";
}
...