perl - 将文件中的数据加载到二维数组中

Question

我刚开始使用 perl，希望得到一些关于数组的帮助。我正在从数据文件中读取行并将行拆分为字段:

open (INFILE, $infile);
do {
my $linedata = <INFILE>;
my @data= split ',',$linedata;
....
} until eof;

然后我想将各个字段值(在@data 中)存储在数组中，以便数组看起来像输入数据文件，即数组的第一“行”包含来自 的第一行数据INFILE 等

infile 中的每一行数据都包含 4 个值，x、y、z 和 w，一旦数据都在数组中，我必须将数组传递给另一个读取 x、y、z、w 的程序并在屏幕上显示由 x、y、z 值确定的点的 w 值。我无法逐行将数据传递给其他程序，因为该程序希望数据采用二维矩阵格式。非常感谢任何帮助。克里斯

Answer 1

这并没有那么难，你只需要存储拆分，而不是在它们自己单独的列表中，而是在一个数组中，占用一个更大数组的一个槽:

my @all_data;

while (my $linedata = <INFILE>) { 
   push # creates the next (n) slot(s) in an array
       @all_data
     , [ split ',',$linedata ] 
       # ^ we're pushing an *array* not just additional elements.
      ; 
}

但是，如果您只是想阅读作为逗号分隔值格式 的众所周知的概念，那么请查看类似Text::CSV 的内容。 , 因为 CSV 的全部功能不仅仅是用逗号分隔。