如何获取取消引用的匿名数组的第 n 个元素？

Question

use strict;

my $anon = [1,3,5,7,9];
my $aref  = [\$anon];

print "3rd element: "  . $ { $aref } [2] . "\n";

我想通过$aref 变量获取匿名数组$anon 的第n 个元素。在代码中，我想通过将索引设为 2 来获取 $anon 的第三个元素，但它什么也没返回。如果我写$ { $aref } [0]，那么它会返回类似 REF(0x7fd459027ac0)

如何获得第 n 个，例如 $anon 的第 3 个元素？

理由：

my @area = (
    qw[1 3 5 7 9],
    qw[2 4 6 8 0],
    qw[a e i u o],
    qw[b c d f g]
    );

foreach my $row (@area) {
    foreach my $cell (@$row)
    {
    # do some processing on the element
    print $cell . " ";
    }
    print "\n";
}

Answer 1

如何获取取消引用的匿名数组的第 n 个元素？

您有太多对 运算符的引用。您已经构建了三层深的嵌套结构，难怪您在导航时遇到问题

问题是您的$anon 已经是一个对匿名数组的引用。方括号[...] 构造一个匿名数组并返回对它的引用

你有

my $aref  = [\$anon]

创建另一个对具有一个元素的数组的引用：对 标量 $anon 的引用。

所以你已经建立了这个

$anon = [1, 3, 5, 7, 9]

$aref = [ \ [1, 3, 5, 7, 9] ]

所以

${$aref}[0]          is \ [1, 3, 5, 7, 9]
${${$aref}[0]}       is [1, 3, 5, 7, 9]
${${${$aref}[0]}}[2] is 5

但是你为什么要处理对数组的引用，尤其是对标量的引用？最好从一个普通的数组开始，然后写

my @array = ( 1, 3, 5, 7, 9 );
my $aref = \@array;

print $aref->[2];

输出

5

Answer 2

您有一个经典的列表数据结构，但有所不同。您需要获取外部数组引用的第一个元素，由$aref 给出，取消引用结果，然后获取该表达式返回的内部数组引用的第 n 个元素。这应该可以解决问题：

${ $aref->[0] }->[2]

您可能需要阅读perllol 甚至可能是perlref 以获取更多信息和想法。如果您可以控制此数据结构，则有更好的方法来构建它。例如，如果它是这样构建的：

my $anon = [1, 3, 5, 7, 9]; # a reference to an anonymous array
my $aref = [$anon]; # a reference to an anonymous array containing only the above reference

你可以这样做：

$aref->[0][2]