Select Code to Download

column relationship value num_or_string filter_or_append order
a      <=           0.3   num           filter           1
b      eq           abc   string        append           3
c      <=           0.3   num           filter           2

a     b     c
0.2   abc   0.3
...
0.1   abc   0.5
0.7   abt   0.7
0.1   abd   0.8

#!/usr/bin/perl
use warnings;
...
print Dumper \@filter; #### For Debugging Purposes
my $num_elements = (@filter-1); #Number of elements in array - will be
+ used to control loop when comparisons take place later in code

open (IN, "$input_file") or die "Cannot open file: $!";

...
                        $y++;
                }

if ((eval "$hash{$filter[0]->[0]} $filter[0]->[1] $filter[0]->[2]") &&
+ (eval "'$hash{$filter[1]->[0]}' $filter[1]->[1] '$filter[1]->[2]'") 
+&& (eval "$hash{$filter[2]->[0]} $filter[2]->[1] $filter[2]->[2]"))
{
    print OUTFILE $line, "\n";
}

    for(my $c = 0; $c <= $num_elements; $c++)
    {
...
            }
        }
    }