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

算是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" ;
}