Perl 遍历散列

我们在遍历二维或多维的散列时, 可以采用递归的方法.

1. 首先查看每个value的值类型, 如HASH, ARRAY, 还是简单的标量

2. 如果value的值类型是HASH,则递归直到找到相应的ARRAY 或者标量

3. 如果value的值类型是ARRAY,则通过循环打印出各个元素

4. 如果value的值类型是标量,则直接打印

 

my %kids_of_wife;
$kids_of_wife{"Jacob"}{"John"} = {"Leah" => ["Reuben", "Simeon", "Levi", "Judah", "Issachar", "Zebulun"],
                           "Rachel" => ["Joseph", "Benjamin"],
                           "Bilhah" => ["Dan", "Naphtali"],
                            "Zilpah" => ["Gad", "Asher"],};
my @array = (1,2,3,4,5);
@{$kids_of_wife{"Jacob"}{"John"}{"