arrays - 将数组作为项目推送到另一个数组 - 不创建多维数组

Question

我有一个数组，@allinfogoals我想把它变成一个多维数组。为了实现这一点，我试图将一个数组作为一个项目推送，如下所示:

push @allinfogoals, ($tempcomponents[0], $tempcomponents[1], $singlehometeam);

数组括号中的那些项目都是我事先拥有的单个字符串。但是，如果我引用 $allinfogoals[0] ，我得到了 $tempcomponents[0] 的值如果我尝试 $allinfogoals[0][0]我得到:

Can't use string ("val of $tempcomponents[0]") as an ARRAY ref while "strict refs" in use

如何将这些数组添加到 @allinfogoals使它成为一个多维数组？

Answer 1

首先，括号中的

push @allinfogoals, ($tempcomponents[0], $tempcomponents[1], $singlehometeam);

什么都不做。这只是一种奇怪的写作方式

push(@allinfogoals, $tempcomponents[0], $tempcomponents[1], $singlehometeam);

parent 更改优先级；他们不创建列表或数组。

现在回答你的问题。 Perl 中没有二维数组这样的东西，数组只能容纳标量。解决方案是创建一个对其他数组的引用的数组。这就是为什么

$allinfogoals[0][0]

是简称

$allinfogoals[0]->[0]
   aka
${ $allinfogoals[0] }[0]

因此，您需要将您的值存储在一个数组中，并将对该数组的引用放在顶级数组中。

my @tmp = ( @tempcomponents[0,1], $singlehometeam );
push @allinfogoals, \@tmp;

但是 Perl 提供了一个运算符来为您简化。

push @allinfogoals, [ @tempcomponents[0,1], $singlehometeam ];