arrays - 在Perl中循环二维数组？

Question

如果我有一个二维数组，怎么可能访问循环内的整个子数组？现在我有

foreach my $row(@data){  
 foreach my $ind(@$row){  
  #perform operations on specific index  
 }  
}

但理想情况下，我正在寻找类似

的东西

foreach my $row(@data){  
  #read row data like $row[0], which if it has the data I'm looking for  
  #I can go ahead and access $row[3] while in the same row..
}  

我对 Perl 还很陌生，所以可能还不明白一些东西，但是当我尝试以我想要的方式使用它时，我一直保持“全局符号“@row”需要明确的包名称”。

Answer 1

你已经接近了。 $row 是一个 数组引用，您可以使用尊重运算符 ->[...]:

访问它的元素

foreach my $row (@data) {
    if ($row->[0] == 42) { ... }

$row[0] 指的是数组变量 @row 的一个元素，这是一个完全不同的(可能是未定义的——因此 Global符号 ... 错误消息)变量比 $row.