Shell Programming and Scripting

cat tablextract2.sql
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;
[root@dunkin-ds-dev-103 vivek]#
[root@dunkin-ds-dev-103 vivek]#  perl -in -e '$print=1 if /'${proc_name1}'/;print unless !$print;/Delimiter/i && exit ' tablextract2.sql
[root@dunkin-ds-dev-103 vivek]# cat tablextract2.sql
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;

# cat tablextract2.sql
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;

#proc_name1=after72DeleteTgr

# perl -ni -e '$print=1 if /'${proc_name1}'/;print unless !$print;/Delimiter/i && exit ' tablextract2.sql

# cat tablextract2.sql
CREATE PROCEDURE after72DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;

cat diff
CREATE PROCEDURE after100DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;
CREATE PROCEDURE after100DeleteTgr(id int)
BEGIN
        insert into DeleteEvent(entityName, entityId) values ('PersonalContactNote', id) ;
END
$$
Delimiter ;

proc_name1="after100DeleteTgr"
echo "`awk 'BEGIN { FS = "[( ]" } {if($3~v){a=1}}a;tolower($0) ~ /delimiter/{exit}' v="$proc_name1" diff`" > diff
 
cat diff
CREATE PROCEDURE after100DeleteTgr(id int)
BEGIN
END
$$
Delimiter ;

 
cat diff
CREATE PROCEDURE after100DeleteTgr(id int)
BEGIN
        insert into DeleteEvent(entityName, entityId) values ('PersonalContactNote', id) ;
END
$$
Delimiter ;

awk '/^Delimiter/ && f{f=0;next} $3 ~ v && ++c==n{f=1}!f' n=1 v="$proc_name1" diff

 echo "`awk '/^[dD]elimiter\|DELIMITER/ && f{f=0;next} $3 ~ v && ++c==n{f=1}!f' n=1 v="$proc_name1" diff`" > diff
-bash: !f': event not found

awk 'toupper($1)=="DELIMITER" && f{f=0;next} $3 ~ v && ++c==n{f=1}!f' n=1 v="$proc_name1" diff > diff_temp

mv diff_temp diff