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

Question

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

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

Answer 1

打印调试语句是一件非常有用的事情。请注意

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 ...