#! /usr/bin/perl

my $line1;
my @condition;
my %conditions_hash;
my @conditions_keyvalues;
my $line2;
my @test_array;
$flag = 0;

$line2 = $ARGV[0];

open(OUTPUT_HANDLE,">output.txt");

open(TEST_HANDLE,"test.txt");
open(C_CARD,"conditions_file.txt");
while($line1 = <C_CARD>)
{
@condition = split(' ',$line1);
$hash_condition{$condition[0]} = "$condition[1]"." $condition[2]";
push(@conditions_keyvalues,"$hash_condition{$condition[0]}\n");
$flag = 1 if($condition[1] =~ m/eq/);
goto l1;
}

#print "$hash_condition{$condition[0]}\n";


l1: 
open(OUTPUT_HANDLE,">>output.txt");
while($line2 = <TEST_HANDLE>)
{
chomp($line2);
@test_array = split(',',$line2);
	if($flag == 1)
	{
		#print "$test_array[$condition[0]]\n";
		#print "$condition[2]\n";
		foreach my $i(@conditions_keyvalues)
		{
			print "key values are $i\n";
			if($test_array[$condition[i]] eq $condition[i+2])
			{
				print OUTPUT_HANDLE "$line2\n";
			}	
		}
	}

}