由SHELL版块想到的一个匹配问题

mcshell

问题是这样的：
“
如果有一行字符串$line = '我的email是23895789@qq.com,请联系我'，如何把其中的邮件地址打印出来，打印的格式是：
23895789@qq.com 23895789
即：username@xx.com username 的格式
需要注意的是，字符串里面可能有很多email，需要全部打印出来，就是说要匹配邮件地址，然后打印出来，不知道我说清楚了没，真心请教大侠，结草衔环，感激不尽！
”
我想了下可能出现的情况有可能是：
我的email是23895789@xx.com,请联系我'
我的email是23895789@vip.xx.com,23895789@vip.xx.com,23895789@vip.xx.com,请联系我'
我的email是abc@xx.com,请联系我'

我给出的答案是：

1. [root@234267 mcshell]# perl -lne 'if(/(([a-zA-Z0-9._%+-]+)@\S+?(?=[,]))/){print "$1\t$2"}' tmp
   
2. 23895789@xx.com 23895789
   
3. 23895789@vip.xx.com   23895789
   
4. abc@xx.com      abc
   
5. [root@234267 mcshell]# cat tmp
   
6. 我的email是23895789@xx.com,请联系我'
   
7. 我的email是23895789@vip.xx.com,请联系我'
   
8. 我的email是abc@xx.com,请联系我'
   

复制代码

但是我想要的结果是

23895789@xx.com 23895789
23895789@vip.xx.com   23895789 23895789@vip.xx.com   23895789 23895789@vip.xx.com   23895789
abc@xx.com      abc


我觉得regex本身应该没有问题
如图

请大家帮我看看问题出在哪里了

sjdy521

perl -ne 's/[\r\n]+$//;while(/(([\w.]+)@[\w.]+),?/g){print $1,"\t",$2,"\t"} print "\n";'

iamlimeng

应该加修饰符/g就可以了

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. while (<DATA>) {
   
6.         while ($_ =~ /(([a-zA-Z0-9._%+-]+)@\S+?(?=[,]))/g)
   
7.         {
   
8.                 print "$1\t$2,";
   
9.         }
   
10.          print "\n";
    
11. }
    
12. 
    
13. <>;
    
14. 
    
15. __DATA__
    
16. 我的email是23895789@xx.com,请联系我'
    
17. 我的email是23895789@vip.xx.com,23895789@vip.xx.com,23895789@vip.xx.com,请联系我'
    
18. 我的email是abc@xx.com,请联系我'
    

复制代码

mcshell

回复 3# iamlimeng


    谢谢。。明白了。

64805176

回复 1# mcshell


大哥，请教个问题   
perl -lne 'if(/(([a-zA-Z0-9._%+-]+)@\S+?(?=[,]))/){print "$1\t$2"}' tmp
这句中  ?(?=[,])  是什么意思啊？？

MMMIX

64805176 发表于 2012-04-19 18:04
perl -lne 'if(/(([a-zA-Z0-9._%+-]+)@\S+?(?=[,]))/){print "$1\t$2"}' tmp
这句中  ?(?=[,])  是什么意思啊？？

第一個 ? 作用於前面的 \S，後面的 (?=pattern) 在 perlre 中有描述。