带范围的模式匹配+增加内容,真是头痛

carrierye

Dear all

    目前有遇到一个问题,请各位大虾帮忙

   需求

1. 
   
2.    UPDATE xxx_file set col1=value1,
   
3.                                     col2=value2,
   
4.                                     ......
   
5.       WHERE.......
   
6.      IF SQLCA.sqlcode THEN
   
7.          CALL cl_err.....
   
8.          ............
   
9.      END IF
   

复制代码

我希望能够找到文件中类似有这样的语句块,即UPDATE开头,UPDATE语句结束后,立即是IF SQLCA.sqlcode这样的STATEMENTS BLOCK
1.在IF SQLCA.sqlcode后面加上一行CALL cl_err3(.....)的语句
2.最好可以提取UPDATE语句后面的xxx_file,因为cl_err3中我会用到这个内容
3.最好能MARK住CALL cl_err这行

可能出现的情况UPDATE结束之后,若不是IF SQLCA.sqlcode的话,这些行就不匹配了
1.我尝试用sed,但是它的单行匹配,
sed "s:\(^ *\)\(UPDATE *\)\([^ (]*\)\(.*\):\1\2\3\4\n      CALL cl_err3(\"upd\",\"\3\",\"\",\"\",SQLCA.sqlcode,\"\",\"\",1)
目前我仅做到UPDATE后面加cl_err3这样子,xxx_file我是提取到了
但是问题是没有CHECK是否有IF SQLCA.sqlcode这样的判断
效果

1. 
   
2.             UPDATE gac_file SET xxx01 = ....,
   
3.        CALL cl_err3("upd","gac_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-660081  #我加的一行,当然我目前的加法,SQL语句肯定不能执行
   
4.                                              xxx02 = ....,
   
5.                 WHERE gac01 = g_gab01_t AND gac12 = g_gab11_t                  
   
6.             IF SQLCA.sqlcode THEN                                               
   
7.                 CALL cl_err('gac',SQLCA.sqlcode,0) CONTINUE WHILE               
   
8.             END IF
   

复制代码

2.我尝试用ex命令
ex...
1
/UPDATE/                                                                        
.,/SQLCA.sqlcode/a                                                              
        CALL cl_err3("upd","aaa_file",g_aaa.aaa01,"",SQLCA.sqlcode,"","",1) #No.
.
这种方法的话,a)我无法提取到update后面的xxx_file
                   b)最终的效果是有些加了cl_err3,有些没有加cl_err3
因为ex我不熟,所以不知道为什么出现这种原因了

carrierye

没人回应噢

waker

俺读了两遍，没看懂你要的是什么，谁看懂了再描述一下

r2007

语句之间有没有特定的分隔符？
如果是靠语法分析来区分的，就不好办了。

carrierye

目前我们家要对整个系统的程序中的报错信息要翻新
原来的报错代码是cl_err('description',错误代码,停留秒数)
目前类似在UPDATE/SELECT/INSERT/DELETE(SQL语句后面的报错信息cl_err)的要变换成cl_err3
即把原来的那行cl_err(....) mark住,mark符为 #
再加上一行cl_err3('sel/upd/ins/del',table_name,key_column1,key_column2,错误代码,"","description","",1""


如看懂了上面的话,再看下面的限制
一般什么时候会报错呢,当然是SQL语句有出错时,所以我们家现在的语句类似是这样的:
UPDATE xxx_file set xx=xx,
                                yy=yy..
  WHERE ......
IF SQLCA.sqlcode THEN
    call cl_err(......)
    ......
END IF

所以遇到类似上述的语句块时,我要在1.mark call cl_err(....)
2.在call cl_err(....) 下面新增一行call cl_err3

如果目前还看得懂的话,请再看下面
cl_err3('sel/upd/ins/del',table_name,key_column1,key_column2,错误代码,"","description","",1""
cl_err3中有很多的参数
1.sel/upd/ins/del  则要看上面的一句sql语句,来决定填什么的
2.table_name 要看sql语句处理的table是哪个
3.key_column1,key_column2 目前这个太难了,暂不处理,理论上我会去取where中等号右边的值,最多为两个
4.错误代码为原来cl_err中第二个参数
5.description为原来cl_err中第一个参数,目前这个暂不处理,因为会根据cl_err中第一个参数不同而不同

我原本想用ex来处理,但是这个命令我不熟,且我提取不到相关的信息,用sed可以提取原来cl_err中或是SQL语句中的相关信息,但是目前我处理下来效果也太差
**不知道是不是可以写c呢?????**

**各位有没有被我说糊涂了,**
anyway,谢谢各位的关注

waker

awk '
/UPDATE/{ac="upd";tname=$2}
/SELECT/{ac="sel";tname=$2}
/INSERT/{ac="ins";tname=$2}
/DELETE/{ac="del";tname=$2}
/IF SQLCA/{pro=1}
/END IF/{pro=0}
pro==1&&/call cl_err/{ print "#mark by awk#",$0;
gsub(/^[^,]*/;"");gsub(/,.*/;"");
print "cl_err3(\047)"ac"\047,"tname",key_column1,key_column2,"$0",\"\",\"description\",\"\",1\"\")"
} ' ur-file

没测试，基本思路就是这样

carrierye

gsub这行报错,可否解释一下
如果去掉该行,我原来程序很多东西都不见了

waker

awk '
/UPDATE/{ac="upd";tname=$2}
/SELECT/{ac="sel";tname=$2}
/INSERT/{ac="ins";tname=$2}
/DELETE/{ac="del";tname=$2}
/IF SQLCA/{pro=1}
/END IF/{pro=0}
pro==1&&/call cl_err/{ print "#mark by awk#",$0;
gsub(/^[^,]*/,"");gsub(/,.*/,"");
print "cl_err3(\047)"ac"\047,"tname",key_column1,key_column2,"$0",\"\",\"description\",\"\",1\"\")"
}
!(pro==1&&/call cl_err/)
' ur-file

关键是要读懂，我没你的数据，也不太清楚你的细节要求，抄过去用JB上是完不了工的

carrierye

谢谢waker,慢慢得成型了
目前我把代码修改成

1. 
   
2. #!/bin/sh                                                                       
   
3. awk '                                                                           
   
4. /UPDATE/{ac="upd";tname=$2}                                                     
   
5. /SELECT/{ac="sel";tname=$4}                                                     
   
6. /INSERT/{ac="ins";tname=$3}                                                     
   
7. /DELETE/{ac="del";tname=$3}                                                     
   
8. /IF SQLCA/{pro=1}                                                               
   
9. /IF STATUS/{pro=1}                                                              
   
10. /END IF/{pro=0}                                                                 
    
11. pro==1&&/CALL cl_err/{print "#",$0,"  #No.FUN-660115";                          
    
12. gsub(/^[^,]*/,"");gsub(/,.*/,"");                                               
    
13. print "         CALL cl_err3(\""ac"\",\""tname"\",\"\",\"\",SQLCA\.sqlcode,\"\",
    
14. }                                                                              
    
15. !(pro==1&&/CALL cl_err/)                                                        
    
16. ' sample >try.txt
    

复制代码

原始文件,sample长成

1. 
   
2.       INSERT INTO qcs_file VALUES (g_qcs.*)                                    
   
3.       IF SQLCA.sqlcode THEN                                                     
   
4.          CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)                              
   
5.          LET g_success='N'                                                      
   
6.       END IF                                                                    
   
7.                                                                                 
   
8.          UPDATE srg_file SET srg12=g_qcs.qcs01 WHERE srg01=g_qcs.qcs01         
   
9.                                                  AND srg02=g_qcs.qcs02         
   
10.          IF SQLCA.sqlcode OR SQLCA.sqlerrd[3]=0 THEN                           
    
11.             CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)                           
    
12.             LET g_success='N'                                                   
    
13.          END IF                                                                 
    
14.                                                                                 
    
15.                SELECT occ02 INTO m_pmc03                                       
    
16.                  FROM occ_file                                                  
    
17.                 WHERE occ01 = g_qcs.qcs03                                       
    
18.                IF STATUS THEN                                                   
    
19.                   CALL cl_err(g_qcs.qcs03,'atm-333',0)                          
    
20.                   NEXT FIELD qcs03                                             
    
21.                END IF                                                           
    
22.                                                                                 
    
23.             DELETE FROM qct_file                                                
    
24.              WHERE qct01 = g_qcs.qcs01
    
25.                AND qct02 = g_qcs.qcs02                                          
    
26.                AND qct021= g_qcs.qcs05                                          
    
27.                AND qct03 = g_qct_t.qct03                                       
    
28.             IF SQLCA.sqlcode THEN                                               
    
29.                CALL cl_err(g_qct_t.qct03,SQLCA.sqlcode,0)                       
    
30.                ROLLBACK WORK                                                   
    
31.                CANCEL DELETE                                                   
    
32.             END IF
    

复制代码

使用了最上面的代码后,结果长成了

1. 
   
2.       INSERT INTO qcs_file VALUES (g_qcs.*)                                    
   
3.       IF SQLCA.sqlcode THEN                                                     
   
4. #          CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)   #No.FUN-660115            
   
5.          CALL cl_err3("ins","qcs_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-660
   
6.                                                                                 
   
7.          LET g_success='N'                                                      
   
8.       END IF                                                                    
   
9.                                                                                 
   
10.          UPDATE srg_file SET srg12=g_qcs.qcs01 WHERE srg01=g_qcs.qcs01         
    
11.                                                  AND srg02=g_qcs.qcs02         
    
12.          IF SQLCA.sqlcode OR SQLCA.sqlerrd[3]=0 THEN                           
    
13. #             CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)   #No.FUN-660115         
    
14.          CALL cl_err3("upd","srg_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-660115
    
15.                                                                                 
    
16.             LET g_success='N'                                                   
    
17.          END IF                                                                 
    
18.                                                                                 
    
19.                SELECT occ02 INTO m_pmc03                                       
    
20.                  FROM occ_file                                                  
    
21.                 WHERE occ01 = g_qcs.qcs03                                       
    
22.                IF STATUS THEN                                                   
    
23. #                   CALL cl_err(g_qcs.qcs03,'atm-333',0)   #No.FUN-660115      
    
24.          CALL cl_err3("sel","m_pmc03","","",SQLCA.sqlcode,"","",1)  #No.FUN-660115
    
25.                                                                                 
    
26.                   NEXT FIELD qcs03                                             
    
27.                END IF                                                           
    
28.                                                                                 
    
29.             DELETE FROM qct_file                                                
    
30.              WHERE qct01 = g_qcs.qcs01                                          
    
31.                AND qct02 = g_qcs.qcs02                                          
    
32.                AND qct021= g_qcs.qcs05                                          
    
33.                AND qct03 = g_qct_t.qct03                                       
    
34.             IF SQLCA.sqlcode THEN                                               
    
35. #                CALL cl_err(g_qct_t.qct03,SQLCA.sqlcode,0)   #No.FUN-660115   
    
36.          CALL cl_err3("del","qct_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-660
    
37.                                                                                 
    
38.                ROLLBACK WORK                                                   
    
39.                CANCEL DELETE                                                   
    
40.             END IF
    

复制代码

我希望最好的效果能够为

1. 
   
2.       INSERT INTO qcs_file VALUES (g_qcs.*)                                    
   
3.       IF SQLCA.sqlcode THEN                                                     
   
4. #        CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)   #No.FUN-660115              
   
5.          CALL cl_err3("ins","qcs_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-660
   
6.          LET g_success='N'                                                      
   
7.       END IF                                                                    
   
8.                                                                                 
   
9.          UPDATE srg_file SET srg12=g_qcs.qcs01 WHERE srg01=g_qcs.qcs01         
   
10.                                                  AND srg02=g_qcs.qcs02         
    
11.          IF SQLCA.sqlcode OR SQLCA.sqlerrd[3]=0 THEN                           
    
12. #           CALL cl_err(g_qcs.qcs01,SQLCA.sqlcode,1)   #No.FUN-660115           
    
13.             CALL cl_err3("upd","srg_file","","",SQLCA.sqlcode,"","",1)  #No.FUN-
    
14.             LET g_success='N'                                                   
    
15.          END IF                                                                 
    
16.                                                                                 
    
17.                SELECT occ02 INTO m_pmc03                                       
    
18.                  FROM occ_file                                                  
    
19.                 WHERE occ01 = g_qcs.qcs03                                       
    
20.                IF STATUS THEN                                                   
    
21. #                 CALL cl_err(g_qcs.qcs03,'atm-333',0)   #No.FUN-660115         
    
22.                   CALL cl_err3("sel","m_pmc03","","",SQLCA.sqlcode,"","",1)  #No
    
23.                   NEXT FIELD qcs03                                             
    
24.                END IF
    
25.                                                                                 
    
26.             DELETE FROM qct_file                                                
    
27.              WHERE qct01 = g_qcs.qcs01                                          
    
28.                AND qct02 = g_qcs.qcs02                                          
    
29.                AND qct021= g_qcs.qcs05                                          
    
30.                AND qct03 = g_qct_t.qct03                                       
    
31.             IF SQLCA.sqlcode THEN                                               
    
32. #              CALL cl_err(g_qct_t.qct03,SQLCA.sqlcode,0)   #No.FUN-660115      
    
33.                CALL cl_err3("del","qct_file","","",SQLCA.sqlcode,"","",1)  #No.F
    
34.                ROLLBACK WORK                                                   
    
35.                CANCEL DELETE                                                   
    
36.             END IF
    

复制代码

/)/)
(*.*)

carrierye

目前我想取原始cl_err(参数1,参数2,参数3)中参数2出来,然后放至cl_err3中目前SQLCA.sqlcode的地方
现在因为我不会取,是被我写死的
用最上面的代码,目前样子已写出来了,不过格式方面还有差一点