如何在Perl中访问和打印3或4维散列？

Question

可能重复：
How can I iterate through nested arrays in Perl?

我想创建一个3 - 4维哈希通过

for ($j=0;$j<$#temp_1;$j++) 
{ 
    for ($i=0;$i<$#temp_2;$i++) 
    { 
     $var1{$mode}{$temp_1[$j]}{$temp_2[$i]}=$temp_3[$i]; 
    } 
} 

$mode是预定义的。也阵列@temp_1,@temp_2和@temp3
如果我想打印值，我该怎么办？

Answer 1

如果你想在循环结束后打印整个shebang，你的意思是？

use Data::Dumper; 
print Dumper(\%var1);