Perl正则表达式的灵活应用

见如下代码：

 

use strict; use warnings; my @email = ('mailto: abc@163.com </b>', 'Email:msong/at/yonsei.ac.k>'); foreach(@email) { if($_ =~ /(?:(?:mailto:/s*)|(?:Email:/s*))([^<>/s]+)/i) { print $1, "/n"; } }

 

非常巧妙的用到了(?:功能，它表示的含义是：

  (?:exp)   匹配exp,不捕获匹配的文本，也不给此分组分配组号，

很自然的就匹配到了

abc@163.com
msong/at/yonsei.ac.k

非常巧妙！

 

正则表达式如果使用的好，可以给我们的工作带来很多方便

http://unibetter.com/deerchao/zhengzhe-biaodashi-jiaocheng-se.htm，有简单的教程。