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