帶范圍的模式匹配+增加內(nèi)容,真是頭痛

carrierye

Dear all

    目前有遇到一個(gè)問題,請(qǐng)各位大蝦幫忙

   需求

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
   

復(fù)制代碼

我希望能夠找到文件中類似有這樣的語(yǔ)句塊,即UPDATE開頭,UPDATE語(yǔ)句結(jié)束后,立即是IF SQLCA.sqlcode這樣的STATEMENTS BLOCK
1.在IF SQLCA.sqlcode后面加上一行CALL cl_err3(.....)的語(yǔ)句
2.最好可以提取UPDATE語(yǔ)句后面的xxx_file,因?yàn)閏l_err3中我會(huì)用到這個(gè)內(nèi)容
3.最好能MARK住CALL cl_err這行

可能出現(xiàn)的情況UPDATE結(jié)束之后,若不是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  #我加的一行,當(dāng)然我目前的加法,SQL語(yǔ)句肯定不能執(zhí)行
   
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
   

復(fù)制代碼

2.我嘗試用ex命令
ex...
1
/UPDATE/                                                                        
.,/SQLCA.sqlcode/a                                                              
        CALL cl_err3("upd","aaa_file",g_aaa.aaa01,"",SQLCA.sqlcode,"","",1) #No.
.
這種方法的話,a)我無(wú)法提取到update后面的xxx_file
                   b)最終的效果是有些加了cl_err3,有些沒有加cl_err3
因?yàn)閑x我不熟,所以不知道為什么出現(xiàn)這種原因了

carrierye

沒人回應(yīng)噢

waker

俺讀了兩遍，沒看懂你要的是什么，誰(shuí)看懂了再描述一下

r2007

語(yǔ)句之間有沒有特定的分隔符？
如果是靠語(yǔ)法分析來區(qū)分的，就不好辦了。

carrierye

目前我們家要對(duì)整個(gè)系統(tǒng)的程序中的報(bào)錯(cuò)信息要翻新
原來的報(bào)錯(cuò)代碼是cl_err('description',錯(cuò)誤代碼,停留秒數(shù))
目前類似在UPDATE/SELECT/INSERT/DELETE(SQL語(yǔ)句后面的報(bào)錯(cuò)信息cl_err)的要變換成cl_err3
即把原來的那行cl_err(....) mark住,mark符為 #
再加上一行cl_err3('sel/upd/ins/del',table_name,key_column1,key_column2,錯(cuò)誤代碼,"","description","",1""


如看懂了上面的話,再看下面的限制
一般什么時(shí)候會(huì)報(bào)錯(cuò)呢,當(dāng)然是SQL語(yǔ)句有出錯(cuò)時(shí),所以我們家現(xiàn)在的語(yǔ)句類似是這樣的:
UPDATE xxx_file set xx=xx,
                                yy=yy..
  WHERE ......
IF SQLCA.sqlcode THEN
    call cl_err(......)
    ......
END IF

所以遇到類似上述的語(yǔ)句塊時(shí),我要在1.mark call cl_err(....)
2.在call cl_err(....) 下面新增一行call cl_err3

如果目前還看得懂的話,請(qǐng)?jiān)倏聪旅?br /> cl_err3('sel/upd/ins/del',table_name,key_column1,key_column2,錯(cuò)誤代碼,"","description","",1""
cl_err3中有很多的參數(shù)
1.sel/upd/ins/del  則要看上面的一句sql語(yǔ)句,來決定填什么的
2.table_name 要看sql語(yǔ)句處理的table是哪個(gè)
3.key_column1,key_column2 目前這個(gè)太難了,暫不處理,理論上我會(huì)去取where中等號(hào)右邊的值,最多為兩個(gè)
4.錯(cuò)誤代碼為原來cl_err中第二個(gè)參數(shù)
5.description為原來cl_err中第一個(gè)參數(shù),目前這個(gè)暫不處理,因?yàn)闀?huì)根據(jù)cl_err中第一個(gè)參數(shù)不同而不同

我原本想用ex來處理,但是這個(gè)命令我不熟,且我提取不到相關(guān)的信息,用sed可以提取原來cl_err中或是SQL語(yǔ)句中的相關(guān)信息,但是目前我處理下來效果也太差
**不知道是不是可以寫c呢?????**

**各位有沒有被我說糊涂了,**
anyway,謝謝各位的關(guān)注

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

沒測(cè)試，基本思路就是這樣

carrierye

gsub這行報(bào)錯(cuò),可否解釋一下
如果去掉該行,我原來程序很多東西都不見了

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

關(guān)鍵是要讀懂，我沒你的數(shù)據(jù)，也不太清楚你的細(xì)節(jié)要求，抄過去用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
    

復(fù)制代碼

原始文件,sample長(zhǎng)成

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
    

復(fù)制代碼

使用了最上面的代碼后,結(jié)果長(zhǎng)成了

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
    

復(fù)制代碼

我希望最好的效果能夠?yàn)?br />

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
    

復(fù)制代碼

/)/)
(*.*)

carrierye

目前我想取原始cl_err(參數(shù)1,參數(shù)2,參數(shù)3)中參數(shù)2出來,然后放至cl_err3中目前SQLCA.sqlcode的地方
現(xiàn)在因?yàn)槲也粫?huì)取,是被我寫死的
用最上面的代碼,目前樣子已寫出來了,不過格式方面還有差一點(diǎn)