perl 散列的数组 应用(增加和遍历)

@arry =
(
    {
         key1=>'a',
         key2=>'b'
    }
);

%hash =
(
key1=>'c',
key2=>'d'
);

#往数组里增加散列


push @arry, \%hash; #注意这里一定要引用一下




#遍历生成的散列的数组并打印


foreach $hash_tmp (@arry)
{
    %hash_tmp = %$hash_tmp; #哈哈,像不像C里面的强制类型转换呢


    print $hash_tmp{key1}."\n";
    print $hash_tmp{key2}."\n";
}