算是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" ;
}
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
