Perlのハッシュの解析例

#! /bin/perl
use strict; 
use warnings; 
my %movies; 
my $film; 
my %reverse_result; 
my $director; 
my @data; 
%movies = 
( 
  'The Shining' => 'Kubrick', 
  'Ten Commandments' => 'DeMille', 
  'Goonies' => 'Spielberg', 
); 
# output the value of the hash, the output is Kubrick 
print $movies{'The Shining'}; 
# Output both keys and values 
foreach $film(keys %movies) 
{ 
   print "$film was directed by $movies{$film}. \n"; 
} 
# Add spaces 
print "\n"; 
Switching of #hash structures 
%reverse_result=reverse %movies; 
foreach $director(keys %reverse_result) 
{ 
   print "$director directe the $reverse_result{$director}. \n";  
}
# Add spaces 
print "\n";
# When the hash structure is used in a list environment, perl renders the hash into a normal list of keywords and key values 
@data=%movies; 
 print "@data\n"; 
# Add spaces 
print"\n"; 
# The resulting array is an array divided into an odd number of films and an even number of dilectors, or vice versa 
# Then we assign the array to the hash 
%movies=@data; 
foreach $director(keys %reverse_result) 
{ 
  print "$director directe the $reverse_result{$director}. \n";  
}     
print "The result is not change\n";