Shell Programming and Scripting

#!/usr/bin/perl -w

# array search terms


my @match=(AMCSmartk_  AMCSmartfBC_  AMILX_  IHI_ETA_  ASO_   UHACSOI_);

my $filename = '/tmp/before_odbc.txt';
 
my @arr = 'EnableScorllableCursors=3';

open (FILE,  $filename) or die "unable to open $filename: !";
local last = '';
local $^I ='.bak';
While (<FILE>)

#step 1: if one of variable listed in the array matches the variable in the before_odbc.txt file then insert EnableScorllableCursors=3 
#into a newline. EnableScorllableCursors=3 is inserted between the last line of contexts and before the whitespaces in the file. Then move to the next section of contexts and loop through step 1 process again.

foreach my $match  (@match) {
  
  if ($match==/FILE/) {
 
print << @arr "\n";

if $last;

next;

  }
# step 2: if any of variables in the array list does not matches any of #variables in the before_odbc.txt file then move next

else
if ($match=~/FILE/) {
print;

if $last;

next;
    close FILE;
}

print "Finished \n";