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，有简单的教程。