perl - Perlを使用して分割された配列内のループ

Question

split配列内の値で使用します。

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

ファイルを読みました。

を使用して、配列を使用しsplitて区切り記号の後に各値を取得します。,

各行には 5 つのファイルがあるので、ご想像のとおり、ループの反復ごとに 1 つの行を取り込みたいと考えています。

これを行う方法に関するアドバイスはありますか？

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