Shell Programming and Scripting

#!/bin/bash
#
a_file="/etc/file_1"
src_str="src_string_1"
rpl_str="rpl_string_1"
calling_sed_or_awk_or_whatelse $a_file search_for_all $src_str replace_with $rpl_str
src_str="src_string_2"
rpl_str="rpl_string_2"
calling_sed_or_awk_or_whatelse $a_file search_for_all $src_str replace_with $rpl_str

# proceed to next file

a_file="/etc/file_2"
src_str="src_string_3"
rpl_str="rpl_string_3"
calling_sed_or_awk_or_whatelse $a_file search_for_all $src_str replace_with $rpl_str
src_str="src_string_4"
 rpl_str="rpl_string_4"
 calling_sed_or_awk_or_whatelse $a_file search_for_all $src_str replace_with $rpl_str

/etc/samba/smb.conf
/etc/openldap/ldap.conf
/etc/openldap/slapd.conf
/etc/smbldap-tools/smbldap_bind.conf
/etc/smbldap-tools/smbldap.conf

#!/usr/bin/perl
%h=(
  "/etc/samba/smb.conf"=>
  {
    "search_string_1"=>"replace_string_1",
    "search_string_2"=>"replace_string_2",
  },
  "/etc/openldap/ldap.conf"=>
  {
    "search_string_3"=>"replace_string_3",
    "search_string_4"=>"replace_string_4",
  },
  "/path/to/next/file"=>
  {
    "search_string_5"=>"replace_string_5",
    "search_string_6"=>"replace_string_6",
  },
);
for $i (keys %h){
local $/;
  open I, "$i";
  $_=<I>;
  for $j (keys %{$h{$i}}){
    s/$j/$h{$i}{$j}/g
  }
  close I;
  open I, ">$i";
  print I $_;
  close I;
}

for F-NAME in /etc/samba/smb.conf /etc/openldap/ldap.conf /etc/openldap/slapd.conf /etc/smbldap-tools/smbldap_bind.conf /etc/smbldap-tools/smbldap.conf ; do 

# make new version ( keep source safe )
cp -f /backup/$F-NAME  $F-NAME

case $F-NAME in 
/etc/samba/smb.conf)
# should replace all occurences of ou=Computer by ou=Computer_id
cat $F-NAME | sed 's/"ou=Computer"/"ou=Computer_id"/g' 
# should replace all occurences of ou=User by ou=User_id
cat $F-NAME | sed 's/"ou=User"/"ou=User_id"/g' 
exit
;;
/etc/openldap/ldap.conf)
cat $F-NAME | sed 's/"rootpwd manager"/"rootpwd director"/g' 
exit
;;

..............
..............
..............
esac

done ;