[D]关于应用PERL正则表达式抓取E-MAIL地址

[D]关于使用PERL正则表达式抓取E-MAIL地址
各位帅哥美女:
  小弟对PERL不太熟悉.
  现在需要一个比较强大的用PERL语言处理的正则表达式.
  要求该逻辑能判断字符串为合法的E-MAIL地址,并抓取出来.
  现在我遇到的问题是相 helloword@163.com\,这种情况就不行了。
  请大家帮忙解决一下,写一段代码,若地址中存在这种非法的转义字符,如/\~*&^%......等,则判断为不正确的地址,返回1.


  谢谢各位啦

--------------------------
Double行动：
原帖分数：40
帖子加分：40

[解决办法]
可以分两步走
一是把可能的地址串提取出来
二是检查里面是否有非法字符
不一定非要用一个正则表达式就把所有问题解决
[解决办法]

Perl code

/[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}/i
[解决办法]
探讨

可以分两步走
一是把可能的地址串提取出来
二是检查里面是否有非法字符
不一定非要用一个正则表达式就把所有问题解决

[解决办法]
("[a-zA-Z-0-9]+@[a-zA-Z0-9]+.[a-zA-Z0-9]+.[a-zA-Z0-9]+",a)
a代表需要匹配的内容。
split切割应该很麻烦。