Mega Code Archive

 

Categories / Perl / Hash

 

Reverse a hash

$hash{fruit} = apple; $hash{sandwich} = hamburger; $hash{drink} = bubbly; %reversed = reverse %hash; foreach $key (sort keys %reversed) {     print "$key => $reversed{$key}\n"; }