使用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";
 }