PERL中用于电子邮件验证的正确正则表达式是什么？

Question

可能重复：
What is the best regular expression for validating email addresses?PERL中用于电子邮件验证的正确正则表达式是什么？

我在StackOverflow上一个新的用户。我有一个与PERL中的正则表达式相关的查询。我想知道电子​​邮件的正确的正则表达式。下面给出一个例子来创建一个正则表达式。

例如， [email protected]或 [email protected]

Answer 1

电子邮件验证是非常复杂的任务，所以我建议使用此代码：

use Email::Valid; 
    print (Email::Valid->address('[email protected]') ? 'yes' : 'no');