Perl，引用的解引用数组

Question

在下面的Perl代码中，我希望引用数组中的数组引用

#!/usr/bin/perl

use strict;
use warnings;

my @a=([1,2],[3,4]);

my @b = @$a[0];

print $b[0];

然而，它似乎不起作用。我期望它输出1。

@a是一个引用数组

@b被$a[1]取消引用(我认为)

那么问题出在哪里呢？

Answer 1

这个东西很棘手。

@$a[0]被解析为(@$a)[0]，取消引用(未定义的)标量$a

你想说@{$a[0]}。