如何在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);