关于脚本取值的问题，在线等。谢谢

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  

我想同时取出

51234，python
51235，python
。。。
。。。
。。。
22，sshd
123 ，ntpd
类似这样的格式。。。请问大家如何写这个脚本？

Minsic

没看清题意，错了

换个思路吧……

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

复制代码

[ 本帖最后由 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 发表
awk '{split($4,a,":");split($7,b,"/");print a[2],b[2]}'   file

这个不行。。输出为：

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

Minsic

把每行的最后一个字段以"/"分隔拆成名称为"a"的数组

zhaobin81

sed  -r 's/.*[0-9]+).*\/(.*)$/\1,\2/' file
来个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

还有一个问题：

5125
199
3306
22
514
161


如何把上面的输出成
5125|199|3306|22|514|161 这样的形式？