як пропустити певний рядок у файлі CSV за допомогою perl на основі деяких умов [closed] - perl, csv

while(my $line=<$data>)
{
chomp $line;
my @fields   = split ",",$line;
my $type = $fields[2];
if($type eq "CHILD")
{
next;
}
# some code
}

Я намагаюся пропустити рядки, які мають значення 3-го стовпця як CHILD .. але я не можу цього зробити. Я читаю дані з файлу .csv.

Відповіді:

Друк операторів налагодження - це дуже річ Perl. Будь ласка, зверніть увагу

print "DEBUG type[$type]n"; нижче.

Отже, спробуйте наступне:

while(my $line=<$data>) {
chomp $line;
my @fields = split /,/, $line;
my $type = $fields[2];
print "DEBUG type[$type]n";
}

Будь ласка, відредагуйте свій оригінальний POST за допомогою рядків DEBUG ...