Perl:数组引用数组

Question

可能在某个地方重复，但我已经查看了我能够找到的每个perl数组引用/取消引用示例，并尝试运行该字符串的10多个不同组合以获得我想要的输出。如@$array[i]、@{$array[i]}、@{@$array[i]}等

所以我有一个数组引用数组。我通过创建一个全局数组来构建它，然后将较小的临时数组推入该全局数组。当运行Dumper（）时，最终结果看起来是这样的。

$VAR1 = [ 1 ]; $VAR2 = []; $VAR3 = []; $VAR4 = []; $VAR5 = []; $VAR6 = []; $VAR7 = [ 1 ]; $VAR8 = []; $VAR9 = []; $VAR10 = []; $VAR11 = [ 1 ]; $VAR12 = []; $VAR13 = [ 1 ]; $VAR14 = []; $VAR15 = [ 1 ];

现在我正试图通过使用来取消引用其中一个数组

my @arrayRef = @{$redArray[$i]};
print "Here: " . @arrayRef[0];

@redArray是我的全局数组。

我看到的@{$redArray[$i]}部分从全局数组中获取引用，然后尊重它，它应该像[]或[1]或[1，1…..]一样作为数组返回

然后在第二行，我想得到数组的第一个元素，它将不返回任何东西/error或1。

打印"此处："时@arrayRef[0]；运行，我看到的输出是

Here: Here: Here: Here: Here: Here: Here: Here: Here: Here: Here: Here: Here: Here: Here:

Answer 1

正如其他人所提到的，您对何时应该使用$和@符号感到困惑。（公平地说，这在Perl中并不总是显而易见的。）glenn提供的Perl参考教程链接是最好的资源。也许一些例子会有所帮助：

use strict;
use warnings;
my @important_years = (1066, 1492, 1776);
my @recent_years    = (2010, 2012, 2014);
my $important_years_ref = @important_years;
my $recent_years_ref    = @recent_years;
my @redArray = ($important_years_ref, $recent_years_ref);
printf("%sn", $redArray[0][0]);    # 1066
printf("%sn", $redArray[0][1]);    # 1492
printf("%sn", $redArray[0][2]);    # 1776
printf("%sn", $redArray[1][0]);    # 2010
printf("%sn", $redArray[1][1]);    # 2012
printf("%sn", $redArray[1][2]);    # 2014
# Get a reference to the "important years" array
my $important_years_copy_ref = $redArray[0];
printf("%sn", $important_years_copy_ref->[2]);  # 1776
# Or make brand new array by dereferencing
# the "important years" reference stored in @redArray
my @important_years_copy = @{$redArray[0]};
printf("%sn", $important_years_copy[2]);        # 1776

Answer 2

多亏了glenn jackman和ThisSuitIsBlackNot，我才弄明白。

问题是，我上面做的参考或多或少是正确的，但后来我的代码中出现了错误，我使用的参考是

my $arrayRef = @redArray[$i];
my @redVal = @{$arrayRef};