使用Perl在数组中循环分割

Question

Using split with values in an array.

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

I read in a file.

Using split , take each value after the delimiter , using an array.

There are five files on each line, so as you can imagine, I want to take in one line per loop iteration.

Any advice on how to do this?

Answer 1

You could do this:

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

}

or you could use Text::CSV to read the file

Answer 2

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

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