關(guān)于腳本取值的問題，在線等。謝謝

270175100

tcp        0      0 0.0.0.0:51234               0.0.0.0:*                   LISTEN      1246/python         
tcp        0      0 0.0.0.0:51235               0.0.0.0:*                   LISTEN      20915/python        
tcp        0      0 0.0.0.0:199                 0.0.0.0:*                   LISTEN      1263/snmpd         
tcp        0      0 0.0.0.0:22222               0.0.0.0:*                   LISTEN      19238/sshd         
tcp        0      0 0.0.0.0:80                  0.0.0.0:*                   LISTEN      11216/nginx         
tcp        0      0 0.0.0.0:22                  0.0.0.0:*                   LISTEN      19272/sshd         
udp        0      0 0.0.0.0:514                 0.0.0.0:*                               20383/syslogd      
udp        0      0 0.0.0.0:161                 0.0.0.0:*                               1263/snmpd         
udp        0      0 10.30.33.201:123            0.0.0.0:*                               8491/ntpd           
udp        0      0 60.29.251.201:123           0.0.0.0:*                               8491/ntpd           
udp        0      0 127.0.0.1:123               0.0.0.0:*                               8491/ntpd           
udp        0      0 0.0.0.0:123                 0.0.0.0:*                               8491/ntpd  

我想同時(shí)取出

51234，python
51235，python
。。。
。。。
。。。
22，sshd
123 ，ntpd
類似這樣的格式。。。請問大家如何寫這個(gè)腳本？

Minsic

沒看清題意，錯了

換個(gè)思路吧……

1. awk 'BEGIN{FS="[ :/]+";OFS=","}{print $5,$NF}' urfile

復(fù)制代碼

[ 本帖最后由 Minsic 于 2009-7-22 13:44 編輯 ]

zhaobin81

awk '{split($4,a,":");split($NF,b,"/");print a[2],b[2]}'   file
呵呵！
改了一下！

[ 本帖最后由 zhaobin81 于 2009-7-22 13:07 編輯 ]

270175100

非常感謝。。。請問一下
split($NF,a,"/"); 是什么意思，能解釋一下么

270175100

原帖由 zhaobin81 于 2009-7-22 12:55 發(fā)表
awk '{split($4,a,":");split($7,b,"/");print a[2],b[2]}'   file

這個(gè)不行。。輸出為：

51234 python
51235 python
199 snmpd
22222 sshd
80 nginx
22 sshd
514
161
123
123
123
123

Minsic

把每行的最后一個(gè)字段以"/"分隔拆成名稱為"a"的數(shù)組

zhaobin81

sed  -r 's/.*[0-9]+).*\/(.*)$/\1,\2/' file
來個(gè)sed的！

[ 本帖最后由 zhaobin81 于 2009-7-22 13:09 編輯 ]

yy_galois

gawk '{print $4, $NF}' awklast.txt | gawk 'BEGIN{FS="[ : /]"}{print $2, $4}'

ywlscpl

awk '{print M[split($3,M,":")]","N[split($NF,N,"/")]}' file

270175100

還有一個(gè)問題：

5125
199
3306
22
514
161


如何把上面的輸出成
5125|199|3306|22|514|161 這樣的形式？