awk 分解文件

ljmmail

如何使用 awk 分析以下數(shù)據(jù)，按照指定標志分解文件

@@@@@<<<<<  為新文件開始標志，后面緊跟著文件名稱
#####>>>>> 為文件結(jié)束標志
最后分解為
./ftt
./pfhsm/include/kmSpier.h

1. @@@@@<<<<< ./ftt BEGIN (17)LINES @@@@@<<<<<
   
2. FBZ="@@@@@<<<<<"
   
3. HBZ="#####>>>>>"
   
4. FNUM=0
   
5. FCNT=0
   
6. 
   
7. for  t in ` find . -type f `
   
8. do
   
9. fwcl=`wc -l $t | awk '{print $1}'`
   
10. echo "$FBZ $t BEGIN ($fwcl)LINES $FBZ"
    
11. cat  $t
    
12. echo "$HBZ $t END ($fwcl)LINES $HBZ"
    
13. FNUM=`expr $FNUM + 1 `
    
14. FCNT=`expr $FCNT + $fwcl `
    
15. done
    
16. 
    
17. echo "$HBZ 共 $FNUM 文件, $FCNT 行 $HNZ"
    
18. echo "\n\n"
    
19. #####>>>>> ./ftt END (17)LINES #####>>>>>
    
20. @@@@@<<<<< ./pfhsm/include/kmSpier.h BEGIN (26)LINES @@@@@<<<<<
    
21. //    Author:    Wolfgang Wang
    
22. //    Date:    2003/09/02
    
23. 
    
24. // 為UP-2003-04-13開發(fā)
    
25. 
    
26. #ifndef _UnionKMSpierSpier_
    
27. #define _UnionKMSpierSpier_
    
28. 
    
29. #include "appKMSvr.h"
    
30. #include "idOfApp.h"
    
31. 
    
32. typedef struct
    
33. {
    
34.         char    requestOrResponse;    // 請求還是響應(yīng)，1表示請求，0表示響應(yīng)
    
35.         char    idOfApp[2];        // 應(yīng)用標識，應(yīng)用固定為80
    
36.         char    idOfOperation[2];    // 操作標識，參見：appKMSvr.h的定義
    
37.         char    errCode[6];        // 錯誤碼，操作產(chǎn)生
    
38. } TUnionKMSpierHeader;
    
39. typedef TUnionKMSpierHeader    *PUnionKMSpierHeader;
    
40. 
    
41. int UnionSpyKMRequest(char *idOfOperation,char *reqStr,int len);
    
42. int UnionSpyKMResponse(char *idOfOperation,char *errCode,char *resStr,int len);
    
43. int UnionUnpackKMSpierPackage(char *pck,int lenOfPck,PUnionKMSpierHeader pheader,char *buf,int sizeOfBuf);
    
44. int UnionAnalysisKMSpierPackage(char *pck,int lenOfPck,char *reqOrRes,char *oper,char *errCode,char *buf,int sizeOfBuf);
    
45. 
    
46. #endif
    
47. #####>>>>> ./pfhsm/include/kmSpier.h END (26)LINES #####>>>>>
    

復(fù)制代碼

ljmmail

注意文件 名稱中帶有路徑信息，可能需要創(chuàng)建目錄

jason680

回復(fù) 2# ljmmail

$ awk 'match($0,"^@@@@@<<<<< ([^ ]+)",m){f=m[1];s="";next}/^#####>>>>> /{print "file:"f;cmd="mkdir -p `dirname "f"`";system(cmd);printf("%s",s)>f;next}{s=s$0"\n"}' FILE
file:./ftt
file:./pfhsm/include/kmSpier.h

$ wc ./ftt
17  56 313 ./ftt

$ wc ./pfhsm/include/kmSpier.h
26  69 971 ./pfhsm/include/kmSpier.h

wh7211

回復(fù) 1# ljmmail

1. awk '/^@@@@@<<<<<.*@@@@@<<<<<$/{a="";split($0,s);dir=gensub("[^/]+$","","1",s[2]);system("mkdir -p "dir"")}{a=a?a"\n"$0:$0}/^#####>>>>>.*#####>>>>>$/{print a>s[2];a=""}' file

復(fù)制代碼

ljmmail

謝謝 jason680 回復(fù)，這個方法確實可用。

ljmmail

1. awk '
   
2.         BEGIN { mpath=""; npath="";}
   
3.         ## 對文件開始標志行處理，獲取文件名稱，判斷文件夾沒出現(xiàn)過，則建立子目錄
   
4.         { if ($0 ~ /^@@@@@<<<<</) {
   
5.                 split($0,s); f=substr(s[2], 3);
   
6.                 npath=gensub("[^/]+$","","1",s[2])
   
7.                 if(npath != mpath) { cmd="mkdir -p "npath" "; system(cmd); mpath=npath; }
   
8.                 icnt=0; buf=""; next}
   
9.         }
   
10.         ## 對文件結(jié)束標志處理，輸出緩沖區(qū)數(shù)據(jù)，打印提示信息
    
11.         { if ($0 ~ /^#####<<<<</) { print "create :-> " f; printf("%s",buf)>f;next}}
    
12.        
    
13.         ## 正常數(shù)據(jù)行，追加新數(shù)據(jù)到緩沖區(qū)中，并計算行數(shù)
    
14.         { buf=buf$0"\n"; icnt = icnt + 1; }
    
15.         ## 緩沖區(qū)中有 64 上時，完成一次數(shù)據(jù)輸出
    
16.         { if(icnt==64) { printf("%s",buf)>f; buf=""; icnt = 0; }}
    
17. 
    
18. '  filename

復(fù)制代碼

這是一個整理后的處理腳本，增加了一些特效，程序效率很高

ljmmail

1. awk '
   
2.         BEGIN { mpath=""; npath="";}
   
3.         ## 對文件開始標志行處理，獲取文件名稱，判斷文件夾沒出現(xiàn)過，則建立子目錄
   
4.         { if ($0 ~ /^@@@@@<<<<</) {
   
5.                 split($0,s); f=substr(s[2], 3);
   
6.                 npath=gensub("[^/]+$","","1",s[2])
   
7.                 if(npath != mpath) { cmd="mkdir -p "npath" "; system(cmd); mpath=npath; }
   
8.                 icnt=0; buf=""; next}
   
9.         }
   
10.         ## 對文件結(jié)束標志處理，輸出緩沖區(qū)數(shù)據(jù)，打印提示信息
    
11.         { if ($0 ~ /^#####<<<<</) { print "create :-> " f; printf("%s",buf)>f;next}}
    
12.        
    
13.         ## 正常數(shù)據(jù)行，追加新數(shù)據(jù)到緩沖區(qū)中，并計算行數(shù)
    
14.         { buf=buf$0"\n"; icnt = icnt + 1; }
    
15.         ## 緩沖區(qū)中有 64 上時，完成一次數(shù)據(jù)輸出
    
16.         { if(icnt==64) { printf("%s",buf)>f; buf=""; icnt = 0; }}
    
17. 
    
18. '

復(fù)制代碼

這是整理后的腳本，增加了一些特效，處理效率很高。

龍牙地主天

1. awk '/@@@@@<<<<<.*@@@@@<<<<</{match($0,"@@@@@<<<<< (.*) BEGIN.*@@@@@<<<<<",a) ; p=1 ; next }/#####>>>>>.*#####>>>>>/{p=0}{if(p==1) print $0 > a[1]}' urfile

復(fù)制代碼