use strict;
use warnings;

my $conditions_txt_file = <<FILESTR;
1 eq 1720
5 eq R
FILESTR
my $test_txt_file = <<FILESTR;
0,1720,123,123,13,123
0,1720,123,123,13,R
0,465,123,123,13,123
FILESTR

my @conditions;

open my $c_card, '<', \$conditions_txt_file or die "Can't open conditions file: $!\n";
while (<$c_card>) {
    chomp;
    next if ! length;
    push @conditions, [split ' '];
}
close $c_card;

open my $testHandle, '<', \$test_txt_file or die "Can't open data nfile: $!\n";
while (<$testHandle>) {
    chomp;
    next if ! length;

    my @columns = split ',';

    next if grep {! match ($_, @columns)} @conditions;
    print join (',', @columns), "\n";
}
close $testHandle;


sub match {
    my ($cond, @columns) = @_;
    my ($column, $test, $value) = @$cond;

    if ($test eq 'eq') {
        return if $column < 0 || $column >= @columns;

        my $match = $columns[$column] eq $value;
        return $match;
    } else {
        die "Don't know how to perform '$test' test\n";
    }
}