perl单行问题

kangwenyi

tcp        1      0 10.6.8.100:57220            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:57293            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:57127            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:57053            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:57070            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:55697            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:55607            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:55605            10.6.8.161:8080             CLOSE_WAIT  
tcp        0      0 10.6.8.100:8080             10.6.8.143:45688            TIME_WAIT   
tcp        1      0 10.6.8.100:55463            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:56271            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:56307            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:56298            10.6.8.161:8080             CLOSE_WAIT  
tcp        0      0 10.6.8.100:8080             10.6.8.143:45690            TIME_WAIT   
tcp        1      0 10.6.8.100:56110            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:56040            10.6.8.161:8080             CLOSE_WAIT  
tcp        0      0 10.6.8.100:8080             10.6.8.143:45691            TIME_WAIT   
tcp        1      0 10.6.8.100:55871            10.6.8.161:8080             CLOSE_WAIT  
tcp        1      0 10.6.8.100:55885            10.6.8.161:8080             CLOSE_WAIT
把最后一列存入数组
perl -lne 'push @arr,$1 if /^tcp\s+(?:\S+\s+){4}(\S+)/'
出来的结果和预想的老是不一样，大家帮忙看看，是什么问题

laputa73

"出来的结果和预想的老是一样"  那还有什么问题?
如果有问题,一定是正则那里写得不对

kangwenyi

回复 2# laputa73
我擦，少打个字，，，结果和预期的老是不一样{:2_176:}

rubyish

1. perl -lane 'print $F[-1]' data

复制代码

kangwenyi

回复 4# rubyish
把最后 列用单行的形式存入数组，而不是打印出来

我想知道我上面写的那个，哪出问题了   

rubyish

1. perl -lne 'push @a, /.*\s(\S+)/' data

复制代码

1. perl -lane 'push @a, $F[-1]' data

复制代码

rubyish

kangwenyi 发表于 2013-06-06 12:03
回复 4# rubyish
把最后 列用单行的形式存入数组，而不是打印出来
我想知道我上面写的那个，哪出问题了   

NO 问题

1. perl -lne ' print /^tcp\s+(?:\S+\s+){4}(\S+)/ ' data
   
2. CLOSE_WAIT
   
3. CLOSE_WAIT
   
4. CLOSE_WAIT
   
5. CLOSE_WAIT
   
6. CLOSE_WAIT
   
7. CLOSE_WAIT
   
8. CLOSE_WAIT
   
9. CLOSE_WAIT
   
10. TIME_WAIT
    
11. CLOSE_WAIT
    
12. CLOSE_WAIT
    
13. CLOSE_WAIT
    
14. CLOSE_WAIT
    
15. TIME_WAIT
    
16. CLOSE_WAIT
    
17. CLOSE_WAIT
    
18. TIME_WAIT
    
19. CLOSE_WAIT
    
20. CLOSE_WAIT
    

复制代码

rubyish

NO 问题 ~

1. perl -lne ' push @a, $1 if /^tcp\s+(?:\S+\s+){4}(\S+)/}{print for @a ' data
   
2. CLOSE_WAIT
   
3. CLOSE_WAIT
   
4. CLOSE_WAIT
   
5. CLOSE_WAIT
   
6. CLOSE_WAIT
   
7. CLOSE_WAIT
   
8. CLOSE_WAIT
   
9. CLOSE_WAIT
   
10. TIME_WAIT
    
11. CLOSE_WAIT
    
12. CLOSE_WAIT
    
13. CLOSE_WAIT
    
14. CLOSE_WAIT
    
15. TIME_WAIT
    
16. CLOSE_WAIT
    
17. CLOSE_WAIT
    
18. TIME_WAIT
    
19. CLOSE_WAIT
    
20. CLOSE_WAIT
    

复制代码

kangwenyi

回复 7# rubyish

找到问题了，我是打印的问题，数组里面的值是正确的，感谢帮忙
   

wenhq

回复 8# rubyish


    01.perl -lne ' push @a, $1 if /^tcp\s+(?:\S+\s+){4}(\S+)/}{print for @a ' data

这个里面的}{是啥意思？ 没看明白。