#!/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',?
);?

#輸出哈希的值，輸出的結(jié)果為Kubrick?
print $movies{'The Shining'};?

#同時輸出鍵和值?
foreach $film(keys %movies)?
{?
?? print "$film was directed by $movies{$film}./n";?
}?

#添加空格?
print "/n";?

#哈希結(jié)構(gòu)的切換?
%reverse_result=reverse %movies;?
foreach $director(keys %reverse_result)?
{?
?? print "$director directe the $reverse_result{$director}./n";??
}

#添加空格?
print "/n";

#當哈希結(jié)構(gòu)用于列表環(huán)境中時，perl會將hash重新變?yōu)橛申P(guān)鍵詞和鍵值組成的普通列表?
@data=%movies;?
?print "@data/n";?

#添加空格?
print"/n";?

#得到的數(shù)組是一個分為奇數(shù)為film，偶數(shù)為director的數(shù)組，或者相反?
#然后我們將數(shù)組賦值給hash?
%movies=@data;?
foreach $director(keys %reverse_result)?
{?
? print "$director directe the $reverse_result{$director}./n";??
}?????
print "The result is not change/n";