Shell Programming and Scripting

# sub: find block (in cols), return line-numbers (begin-end) or 0 if notfound
sub findb{
  my ($exp1,$col1,$exp2,$col2)= @_;   # $exp = expression to find, $col - column to search in
  my $cnt=0;
  my ($val1,$val2);
  my ($beg,$end);
  for($cnt=1;$cnt<=65536;$cnt++){
    $val1 = $Excel->Cells($cnt,$col1)->{'Value'};
    $val2 = $Excel->Cells($cnt,$col2)->{'Value'};
    if ((defined $val1)&&(index($val1,$exp1) != -1)&&(defined $val2)&&(index($val2,$exp2) != -1)){
      $beg =$cnt if (!defined $beg);
    }
    else{
      if (defined $beg){
        $end =$cnt-1;
        last;
      }
    }
  }
  return ($beg,$end);
}

# Parameters 
my $partname  = $ARGV[0];
my $csvfile   = $ARGV[1];
my $xlfile    = $ARGV[2];
my $adatafile = $ARGV[3];
my $outfile   = $ARGV[4];

 findb("OUTPUT_DATA",2,$partname,3);