perl - 使用 Perl 拆分数组中的循环

Question

使用split数组中的值。

($field[1],
$field[2],
$field[3],
$field[4],
$field[5]) = split(",", $line);

我读了一个文件。

使用，使用数组split获取分隔符之后的每个值。,

每行有五个文件，所以你可以想象，我想在每次循环迭代中输入一行。

关于如何做到这一点的任何建议？

Answer 1

你可以这样做：

while (<$fh>){
  my @tmp;
  @tmp = split(/,/,$line);
  warn "Less than 5 items on a line: $line\n" if scalar(@tmp) != 5;

}

或者您可以使用Text::CSV来读取文件

Answer 2

while ($line = < F >)
 {
 @clpData= split(/,/, $line);

 print "@clpData[9]\n";
 }