use strict ; use warnings ;

my @DefectRecordSpec = qw(DEFECTID XREL YREL XINDEX YINDEX XSIZE YSIZE DEFECTAREA DSIZE
                          CLASSNUMBER TEST CLUSTERNUMBER ROUGHBINNUMBER FINEBINNUMBER
                          REVIEWSAMPLE IMAGECOUNT IMAGELIST) ;

my @DefectList = (
 '1  466.458 4741.229 -2 24 2.000 1.725 3.451440 2.000 0 1 0 0 0 0 0 0',
 '2 5329.992 4264.499 -2 24 1.500 0.862 1.294290 1.500 0 1 0 0 0 0 0 0',
 '3 1469.965 4591.523 -1 24 0.500 0.431 0.215715 0.500 0 1 0 0 0 0 0 0',
 '4 7082.505 4283.913 -1 24 2.000 1.725 3.451440 2.000 0 1 0 0 0 0 0 0',
 '5  777.809 2623.219 -2 24 1.000 0.862 0.862860 1.000 0 1 0 0 0 0 0 0',
 '6  376.807 3904.135 -1 24 1.500 0.862 1.294290 1.500 0 1 0 0 0 0 0 0',
 '7 5345.841 3877.818  0 24 0.500 0.431 0.215715 0.500 0 1 0 0 0 0 0 0',
) ;

my @rules = (
  '$XINDEX == -2',
  '($XSIZE > 1.75) && ($XSIZE <= 2.15)',
) ;

my $fields = '$'. join(', $', @DefectRecordSpec) ;
my $rules  = join("\n      || ", map "($_)", @rules) ;

my $sub = join("\n",
  'sub {',
  '  my ($line) = @_ ;',
  '  $line =~ s/^\s+// ;',  # Trim leading spaces, so split is not fooled
                            # NB: the split will discard trailing spaces and newline
  '  my ('. $fields .') = split(/\s+/, $line) ;',
  '  return '. $rules .' ;',
  '} ;'
) ;

my $test = eval $sub ;                    

print $sub, "\n" ;

foreach my $d (@DefectList) {
  print "$d\n"  if $test->($d) ;
} ;