#! /usr/bin/perl -w
#
#sel l1 r1 l2 r2 ... f.datt
#
# select from a .datt file all items that fall in the [l,r) pairs in order
#
$i = 0;
while (defined($ARGV[2*$i+1])) {
  $L[$i] = $ARGV[2*$i];
  $R[$i] =$ARGV[2*$i+1];
  $i++;
}
$pairs = $i;
$file = $ARGV[2*$i];
#debug
#for ($j=0; $j<$pairs; $j++) { print "[$L[$j],$R[$j]) ";} print "\n"; print "$file\n";
open(F,"<$file") or die "No file $file to select from";
while ($line = <F>) {
  @val = split(" ",$line);
  $T = 1;
  L:
  for ($i=0; $i<$pairs; $i++) {
    if ($val[$i]<$L[$i] || $val[$i]>=$R[$i]) {
      $T = 0; 
      last L;
    } 
  }
  if ($T) { #match
    print "$line";
  }
}
close(F);

