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
    }

3列目の値が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";
}

元の POST を DEBUG 行で編集してください...