用awk语句截取字符串

_lpq

[107202][14Jan16 12:13:51.955] [Info] Tfrt vgfbb.14.1.fregfeDftrgSgrhyrth:frth: frwefrs 6, ge5g5g-[frtdg4:14-fergt] Tgtt Fgtgtgt.14.1 Sfr-cft.werty.WER.Styhruyjuy htrhryhuur der DEFERF32:C1ER6TYUIO7 [PPT-Y:1/3 F:0/0]-OK, RTYU-[P:1727 G:1662 H:65]

[105553][14Jan16 13:09:31.792] [Info] Tfrt vgfbb.17.1.fregfeDftrgSgrhyrth:frth: frwefrs 6, ge5g5g-[frtdg4:17-fergt] Tgtt Fgtgtgt.17.1 Sfr-cft.werty.WER.Ecfghbbg htrhryhuur der YJGFCV32 [PPT-Y:1/3 F:0/0]-OK, RTYU-[P:1797 G:1542 H:15]

用：
awk -F'[ .]' -v OFS="|" '{print "t1="$(NF-13),"t2="gensub(/.*:/,"","g",$(NF-5))}' file
得出
t1=14|t2=C1ER6TYUIO7
t1=17|t2=YJGFCV32

用：
awk -F'[ .]' -v OFS="|" '{print "t1="$(NF-13),"t2="gensub(/.*:/,"","g",$(NF-5))，"t3="gensub(/ ([^:]*):/,"\\1","g",$(NF-5))}' file
则打印整行


我要的结果是：
t1=14|t2=C1ER6TYUIO7|t3=DEFERF32
t1=17|t2=YJGFCV32|t3=YJGFCV32

jason680

回复 1# _lpq
[107202][14Jan16 12:13:51.955] [Info] Tfrt vgfbb.14.1.fregfeDftrgSgrhyrth:frth: frwefrs 6, ge5g5g-[frtdg4:14-fergt] Tgtt Fgtgtgt.14.1 Sfr-cft.werty.WER.Styhruyjuy htrhryhuur der DEFERF32:C1ER6TYUIO7 [PPT-Y:1/3 F:0/0]-OK, RTYU-[P:1727 G:1662 H:65]



$ awk 'match($0,"[.]([0-9]+)[.].* der ([^: ]+)(:([^ ]+))?",a){print "t1="a[1]"|t2="(a[4]?a[4]:a[2])"|t3="a[2]}' file
t1=14|t2=C1ER6TYUIO7|t3=DEFERF32
t1=17|t2=YJGFCV32|t3=YJGFCV32


   

_lpq

回复 2# jason680


    谢谢~

我用的是：awk -F'[ .]' -v OFS="|" '{split($(NF-5),t,":")}{print "t1="$(NF_13),"t2="(t[2]?t[2]:t[1]),"t3="t[1]}' file
结果成功了，我高兴哦~~
但是不知道和你的哪个快一点。。
我试试。。

_lpq

回复 2# jason680


     谢谢，但是我要通过匹配关键字，然后对那行进行处理，我用了我的方法报错


gawk: cmd.line:1: (FILENAME=D:\Users\Amy\Desktop\1.txt FNR=1) fatal:attempt to access field -6

moperyblue

1. sed -r 's/.*\.([0-9]+)\..*der\s([^: ]*)(:(\S*))?.*/t1=\1|t2=\4|t3=\2/;s/=(\|t3=(.*))/=\2\1/'

复制代码

_lpq

回复 2# jason680


    我的代码是awk -F'[ .]' -v OFS="|" '/'"${t1}"'/{split($(NF-5),t,":")}{print $(NF_13),(t[2]?t[2]:t[1]),t[1]}' 1.txt > flie1
然后报错
gawk: cmd.line:1: (FILENAME=D:\Users\Amy\Desktop\1.txt FNR=1) fatal:attempt to access field -6

_lpq

回复 2# jason680

请看这个~，上面回复的有点小问题

        我的代码是awk -F'[ .]' -v OFS="|" '/'"${t1}"'/{split($(NF-5),t,":")}{print $(NF-13),(t[2]?t[2]:t[1]),t[1]}' 1.txt > flie1
然后报错
gawk: cmd.line:1: (FILENAME=D:\Users\Amy\Desktop\1.txt FNR=1) fatal:attempt to access field -6

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sFmt = "t1=%s|t2=%s|t3=%s\n";
   
6. while (<>){
   
7.     if (/.*?(?<=\bvgfbb\.)(\d+).*? ([A-Z0-9]+)(:([A-Z0-9]+))? /){
   
8.         if (defined $3){
   
9.             printf ($sFmt,$1,$2,$4);
   
10.             next;
    
11.         }
    
12.         printf ($sFmt,$1,$2,$2);
    
13.     }
    
14. }
    

复制代码

_lpq

回复 8# sunzhiguolu


    谢谢~

暂时没看perl

sunzhiguolu

回复 9# _lpq
装个 perl 解释器就能用了, 可以试下. 共同学习, 共同进步.