Shell Programming and Scripting

#!/sw/gcm/perl510/bin/perl
use SybaseC;
 
&openConnection;
&loadvalues;
 
sub openConnection {
  $dbproc = new SybaseC(SYDB}, $ENV{DBDFLTUSR}, $ENV{DBDFLTPWD});
  if ($dbproc->status() ne  $SybaseC::OK) {
    &exitProc(-1, "Connection to SYDB NOT established");
  }
}
 
my ( @ssq ) = (
        "select *
        from flex..test_book a, flex1..test_book1
        where a.date = b.date
        and $variable  <-- I need to run the SQL mutliple times for diffent conditions.
        and a.emp_name = b.emp_name
 
        select row_count = \@\@rowcount"
);
 
my $re = $dbproc->Returh(\@ssq);
if ( @$re ) {
    foreach my $has ( @$res ) {
      if ( $$has{emp_no} ne "" ) {
        $NEW_Empl{"NEW_Emp_no"}{"$$has{emp_no}|$$has{id}"}++;
      }
      $row_count = $$has{row_count};
if ( $row_count ne "" && $row_count == 0 ) {
        print STDERR "No new records";
      }
    }
  } else {
    print STDERR "Error";
  }
}

%map = (
flag = 'Y'
exlcuse_id =2
..
so on
)

$
$ cat -n combine_conditions.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3  my $conditions;                                  # scalar that holds the combination of all conditions
     4  my %map = qw (flag 'Y' exclude_id 2 name 'ABC'); # hash that has conditions as key-value pairs
     5  while (my ($k,$v) = each %map) {                 # loop through each key-value pair
     6    $conditions .= "or $k = $v "                   # and keep appending the conditions
     7  }                                                # till we are done; hash iteration returns the pairs in no particular order
     8  $conditions =~ s/^or (.*) $/($1)/;               # remove the "or " at the front, the space at the end and wrap around with parentheses
     9  print $conditions, "\n";                         # $conditions can now be plugged in the query, right after AND operator
$
$ perl combine_conditions.pl
(name = 'ABC' or exclude_id = 2 or flag = 'Y')
$
$