perl - 如何根据某些条件使用 perl 跳过 CSV 文件中的特定行

Question

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

我正在尝试跳过第三列值为 CHILD 的行。但我无法这样做。我正在从 .csv 文件中读取数据。

Answer 1

打印调试语句是非常 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";
}

请使用 DEBUG 行编辑您的原始 POST...