可否幫我看一下,我寫的AWK有什么問題,怎么就出不來我要的效果

carrierye

Dear all

  我現(xiàn)在要做一個替換,具體要求是
程序遇到cl_setup,然后在第一個end if處后加一行cl_used....
  程序遇到end main,然后在其上面加一行cl_used
先把代碼貼出

1. 
   
2. !/bin/sh
   
3. if [ $# -lt 1 ];then
   
4.    echo "Usage:clused.sh bug_no"
   
5.    echo "Ex   :clused.sh 'FUN-660010'"
   
6.    exit 1
   
7. fi
   
8. bug_no=$1
   
9. ls *4gl >fgl.lst
   
10. 
    
11. while read col
    
12. do
    
13.   echo $col
    
14.   sed '/CALL *cl_used(/d' $col > tmp1.tmp
    
15. 
    
16. awk -v BUG=${bug_no} '
    
17. {beg=0;pro=0}
    
18. 
    
19. /IF.*cl_setup/{pro=1}
    
20. 
    
21. pro==1&&/END IF/
    
22. {print $0;
    
23. print "CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG";
    
24. pro=0;
    
25. beg=1;
    
26. }
    
27. 
    
28. /END MAIN/{
    
29. print "CALL cl_used(g_prog,l_time,2) RETURNING l_time No.BUG"
    
30. print $0;
    
31. beg=1;
    
32. }
    
33. 
    
34. !(beg==1){print $0}
    
35. ' tmp1.tmp > ${col}
    
36. 
    
37. done<fgl.lst
    
38. rm -rf fgl.lst 2>/dev/null
    

復制代碼

也把范例貼一下,但是目前我發(fā)現(xiàn)上面的SHELL不WORK,

1. 
   
2. 
   
3. MAIN
   
4.    WHENEVER ERROR CALL cl_err_msg_log
   
5.   
   
6.    IF (NOT cl_setup("AIM")) THEN
   
7.       EXIT PROGRAM
   
8.    END IF
   
9. 
   
10. 
    
11.    CALL p306_tm(0,0)  
    
12. END MAIN
    

復制代碼

還有一問是目前我的BUG這個變量取不到我在command line時傳給它的值,

謝謝各位了

carrierye

哎,大蝦幫忙呀

目前我run了一下下面的shell,里面的內(nèi)容竟然成

1. 
   
2.                                                                                 
   
3. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
   
4. MAIN                                                                           
   
5. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
   
6.    WHENEVER ERROR CALL cl_err_msg_log                                          
   
7. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
   
8.                                                                                 
   
9. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
   
10.    IF (NOT cl_setup("AIM")) THEN                                                
    
11. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
12.       EXIT PROGRAM                                                              
    
13. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
14.    END IF                                                                       
    
15. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
16.                                                                                 
    
17. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
18.                                                                                 
    
19. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
20.    CALL p306_tm(0,0)                                                            
    
21. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
22. END MAIN                                                                        
    
23. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG                           
    
24. CALL cl_used(g_prog,l_time,2) RETURNING l_time No.BUG
    
25. END MAIN                                                                        
    
26.                                                                                 
    
27. CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG
    

復制代碼

我查錯,基本上問題是在
pro==1&&/END IF/
{print $0;
print "CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG";
pro=0;
beg=1;
}
中的print "CALL cl_used(g_prog,l_time,1) RETURNING l_time No.BUG";
可是不明白這句怎么會錯呢

各位路過的,幫忙說明一下吧,謝謝

waker

{beg=0;pro=0}

/IF.*cl_setup/{pro=1}

pro==1&&/END IF/

以你的例子數(shù)據(jù)
最后一個判斷永遠為假

carrierye

目前測試下來,如你說得一樣,可是我不明白
我的想法是這樣的:
文中第一次出現(xiàn)cl_setup,我則將pro置為1
當pro=1時,且遇到第一個end if,我就在END IF的后面多打印一行啊
然后我就把變量都初始化了,為什么會是我貼出來的效果呀

awk 難道不是一行行這樣分析的嗎?
當一行中滿足pattern了,就做處理,不滿足就不做了

我的理解有誤嗎?

carrierye

Dear all

carrierye

Dear all

   看來是我寫錯東西了,目前代碼如下就work了

1. 
   
2. #!/bin/sh                                                                       
   
3. if [ $# -lt 1 ];then                                                            
   
4.    echo "Usage:clused.sh bug_no"                                                
   
5.    echo "Ex   :clused.sh 'FUN-660010'"                                          
   
6.    exit 1                                                                       
   
7. fi                                                                              
   
8. bug_no=$1                                                                       
   
9. ls *4gl >fgl.lst                                                               
   
10.                                                                                 
    
11. while read col                                                                  
    
12. do                                                                              
    
13.   echo $col                                                                     
    
14.   sed '/CALL *cl_used(/d' $col > tmp1.tmp                                       
    
15.                                                                                 
    
16. awk -v BUG=${bug_no} '                                                         
    
17. {beg=0}                                                                        
    
18.                                                                                 
    
19. /cl_setup/{pro=1}                                                               
    
20.                                                                                 
    
21. {if (pro==1 && $0~/END IF/){                                                   
    
22. print $0;                                                                       
    
23. print "   CALL cl_used(g_prog,l_time,1) RETURNING l_time No."BUG;               
    
24. pro=0;
    
25. beg=1;                                                                          
    
26. }                                                                              
    
27. }                                                                              
    
28.                                                                                 
    
29. /END MAIN/{                                                                     
    
30. print "   CALL cl_used(g_prog,l_time,2) RETURNING l_time No."BUG;               
    
31. print $0;                                                                       
    
32. beg=1;                                                                          
    
33. }                                                                              
    
34.                                                                                 
    
35. !(beg==1){print $0}                                                            
    
36. ' tmp1.tmp > ${col}                                                            
    
37.                                                                                 
    
38. done<fgl.lst                                                                    
    
39. rm -rf fgl.lst 2>/dev/null
    
40. 
    

復制代碼

謝謝各位的提醒