如何在Perl中初始化2D数组？

Question

我正在尝试以下代码:

 0 use strict;
10 my @frame_events = (((1) x 10), ((1) x 10));
20 print "$frame_events[1][1]\n";

但它给出以下错误:

在./dyn_pf.pl第20行使用"strict refs"时,不能使用字符串("1")作为ARRAY引用.

这种语法似乎只是初始化一维数组,因为打印"$ frame_events [1] \n"有效.虽然Perl在分配期间没有给出任何错误.

Answer 1

你不能在Perl中有一个数组数组,只有一个数组引用数组.

my @frame_events = ([(1) x 10], [(1) x 10]);
print "$frame_events[1]->[1]\n";

特殊情况:您可以省略相邻括号之间的指针解引用箭头(无论是方形还是卷曲):

print "$frame_events[1][1]\n";

一般来说,你不能有:

你可以:

你也可以:

Answer 2