perl基础学习-哈希

print "\n+++++++++++++++++华丽的分割线+++++++++++++++++\n";
#perl最牛逼的东西,哈希表变量,结构就是键值对,可以学习初始化方法和赋值的方法,使用的方法,以及遍历的方法
print "普通初始化哈希,简单的通过key查询value\n";
my %hash = (   
                "Yilin" => "Meng",   
                "Tao" => "Xu",   
           );
my $key = "yilin";
my $value = $hash{$key};
print "$key, $value\n";


print "比较常用的赋值,以及哈希遍历\n";
my $key = "Zichen";
my $value = "Wang";
$hash{$key} = $value;
print "遍历一下哈希\n";
while((my $key, my $value) = each %hash) {   
        print "key=[$key] => value=[$value]\n";
}


print "数组作为哈希的value\n";
my @array=qw|1 2 3 4 5|;
my %hash;
my $key="hello";
$hash{$key}=\@array;
my $value = $hash{$key};
foreach my $em (@{$value}) {
    print "$em\n"
}