arrays - Perl 数组引用总是在循环中重写自身

Question

我正在尝试从文本文件中读取一些数字并将其存储为二维数组。我读了一行并作为数组引用推入另一个数组。但我注意到主数组在所有行中只有最后一行。我该如何纠正这个？提前致谢。这是我做的一部分。

open IN, "a.txt";
@b=();

while (<IN>)

 { 
  $t =$_; 
  @a = split /\s+/,$t; 
  push(@b, \@a); 
 }

Answer 1

您总共只有两个数组。你想要每行一个，加上@b. my每次执行时都会创建一个新变量，因此您可以使用以下内容：

my @b;
while (<IN>) { 
    my @a = split;
    push @b, \@a; 
 }

顺便说一句，您应该始终使用use strict; use warnings;.