Perl 正则表达式 获取邮件地址

Question

我在 exim 日志中为这一行编写正则表达式时遇到了一些麻烦

 1. 2011-05-12 11:30:26 1QKRHt-0001aD-Vd => mail <[email protected]> F=<[email protected]> bla bla 
 2. 2011-04-22 12:01:31 1QDCF0-0002ss-Nw => /var/mail/mail <[email protected]> F=<[email protected]> bla bla 
 3. 2011-05-12 11:29:01 1QKRGU-0001a5-Ok => [email protected] F=<[email protected]> bla bla

，我想将其放入变量 [电子邮件受保护] 在一个正则表达式中。我尝试使用这样的逻辑：在'F='之前找到最后一个字符串，用空格分隔，并且可以锁定在< >

你能帮我写一下这个逻辑吗？

Answer 1

您可以使用以下正则表达式：

# the line should be in variable $line
if ($line =~ /.*?\s+<?(\S+?)>?\s+F=/) {
  # ...
}

然后最好使用 Mail-RFC822-Address perl 模块，因此完整代码可能是：

use Mail::RFC822::Address qw(valid);

# the line should be in variable $line
if ($line =~ /.*?\s+<?(\S+?)>?\s+F=/) {
  if (valid($1)) {
    # ...
  }
}

Answer 2

使用：

/(?<=<)\S*(?=>\s*F=)/

(?<= xxx ) 语法是后向断言，而 (?= xxx ) 是先行断言。

这不会检查电子邮件地址的有效性，只是提取该行的该部分。

Answer 3

正则表达式不是衡量标准， Email::Valid 才是。

Answer 4

这是一个电子邮件验证正则表达式

\b[\w\.-]+@[\w\.-]+\.\w{2,4}\b

它将从任何地方提取电子邮件。

我希望这篇 RFC2822 帖子正确。

[a-z0-9!#$%&'*+/=?^_\`{|}~-]+(?:\\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)\*@(?:\[a-z0-9](?:[a-z0-9-]*[a-z0-9])?.)+\[a-z0-9](?:[a-z0-9-]\*[a-z0-9])?