在 Perl 中，如何解析可能包含许多电子邮件地址的字符串以获取地址列表？

Question

我想拆分包含 ; 或 , 的字符串。

例如：

$str = "[email protected];[email protected],[email protected];[email protected];";

预期结果是：

result[0]="[email protected]";
result[1]="[email protected]";
result[2]="[email protected]";
result[3]="[email protected]";

Answer 1

当然，您可以使用 split 正如其他人所示。但是，如果 $str 包含完整的电子邮件地址，您将陷入困境。

相反，使用 Email::Address：

#!/usr/bin/perl

use strict; use warnings;
use Email::Address;
use YAML;

print Dump [ map [$_->name, $_->address ],
    Email::Address->parse(
        q{[email protected];"Tester, Test" <[email protected]>,[email protected];[email protected]}
    )
];

输出：

---
-
  - a
  - [email protected]
-
  - 'Tester, Test'
  - [email protected]
-
  - c
  - [email protected]
-
  - d
  - [email protected]

Answer 2

my $str = '[email protected];[email protected],[email protected];[email protected];';
my @result = split /[,;]/, $str;

请注意，不能使用双引号来分配 $str，因为 @ 很特殊。这就是为什么我用单引号替换字符串分隔符。你也可以像这样逃避它们：

my $str = "a\@a.com;b\@b.com,c\@c.com;d\@d.com;";

Answer 3

分割(/[.;]/, $str)

Answer 4

您还可以使用 Text::Csv 并使用“;”或“,”用于分割。它也有助于查看其他内容，例如可打印字符等。

Answer 5

回答邮件标题中的问题（与正文略有不同）：

my $str = 'abc@xyz;qwe@rty;';

my @addrs = ($str =~ m/(\w+\@[\w\.]+)/g);

print join("<->", @addrs);

Answer 6

通过“;”分割或“,”，

$test = "abc;def,hij";
@result = split(/[;,]/, $test);

其中正则表达式表示匹配转义的 ；或 , 字符。
最终结果将是 @result = ['abc','def','hij']