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