arrays - 将多个局部变量分配给 perl 中的数组条目

Question

在 Perl 中，我一直对如何从数组条目中干净地分配多个局部变量感到困惑。

我一直在 subs 中使用以下语法，所以我对它有些熟悉:

my ($var1, $var2) = @_

但是其他的变体让我感到困惑。例如，我有以下有效的代码:

    for my $ctr (0 .. $#matchingLines) {
        my $lineNo = $matchingLines[$ctr][0];
        my $text   = $matchingLines[$ctr][1];

其中“@matchingLines”是一个二元素数组的数组。

我希望我可以将最后两行转换为显而易见的内容:

my ($lineNo, $text) = $matchingLines[$ctr];

这当然行不通。我尝试了多种变体，但找不到任何有效的方法。

Answer 1

只需取消引用数组 ref:

my ( $lineNo, $text ) = @{ $matchingLines[$ctr] };

查看Perl Data Structures Cookbook获取更多示例。