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

Question

  

可能重复：
  What is the best regular expression for validating email addresses?

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

例如，

 abc123@yahoo.co.in或  abc345@gmail.com

Answer 1

电子邮件验证确实很复杂，所以我建议使用此代码：

  use Email::Valid;
  print (Email::Valid->address('maurice@hevanet.com') ? 'yes' : 'no');