perl 匹配

YYwlo_wq

第一          第二        第三
    338  192.168.5.23:6601
    169  192.168.5.23:6423
    168  192.168.5.23:6659
     85   192.168.5.23:6449
     82   192.168.5.23:6417



用正则匹配后结果是



    338      6601
    169      6423
    168      6659
     85       6449
     82       6417


请大家帮忙用正则匹配怎么做？

zhlong8

(split /\s+|:/, $str)[0,2]

py

1. 
   
2. perl -i.bak -pe 's/\s+/:/' filename
   
3. perl -F: -ane 'print "$F[0]<>$F[-1]"' filename
   

复制代码

kk861123

s/^(\S+)\s+\S+(\d{4})$/$1$2/;

astronomya

1. /(\d+)\s.+\:(\d+)/;

复制代码

wxlfh

1. /^\s*(\d+)\s+.+:(\d+)$/

复制代码

这样可能直观一点。另，冒号不是元字符，可以不转义。

小perl

回复 2# zhlong8


    什么时候才能像你那样简洁啊，呵呵。学习了！

wxlfh

split的效率不如正则表达式来得好，但是split直观一点。

zhlong8

回复 7# 小perl


    没事多翻翻 perldoc 的文档，比如 perlsyn perlop 之类的。心里有底代码自然简明，而且这里是常见用法。看完 Intermediate Perl 搞懂引用是什么就来混了

2gua

回复  zhlong8


    什么时候才能像你那样简洁啊，呵呵。学习了！
小perl 发表于 2011-05-29 20:22

    初学者先要会用、懂得用，然后才是提升、提炼，不要一下子就想吃下大胖子...............