0,1720,123,123,13,123,123,123,12,3,123,13,123,123,123,123,123,123,13,123,12,312,312,32,3,213,123,213,23,123,123,123,12,312,3,123,123,123,213,12,31,231,23,13,123,123,12,312,3,123,123,1,23,123,12,3,123,12,3,R,423,234,23,423,4<br>
0,1720,123,123,13,123,123,123,12,3,123,13,123,123,123,123,123,123,13,123,12,312,312,32,3,213,123,213,23,123,123,123,12,312,3,123,123,123,213,12,31,231,23,13,123,123,12,312,3,123,123,1,23,123,12,3,123,12,3,Q,423,234,23,423,4<br>
0,465,123,123,13,123,123,123,12,3,123,13,123,123,123,123,123,123,13,123,12,312,312,32,3,213,123,213,23,123,123,123,12,312,3,123,123,123,213,12,31,231,23,13,123,123,12,312,3,123,123,1,23,123,12,3,123,12,3,P,423,234,23,423,4<br>

##</code><code>##

#! /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";
			}	
		}
	}

}