Perl 从字符串获取电子邮件

可能重复：

假设我有这样一个字符串：

某某大学名称pete@school.edu胡说三九

---

我怎样才能把邮件发出去？

你不用说那种语言，但你可以使用这种方法：

http://www.webdeveloper.com/forum/showthread.php?t=200875

---

谷歌上还有很多其他人（无意冒犯，这正是我为帮助你所看到的。）

你不用说这种语言，但你可以使用这种方法：

http://www.webdeveloper.com/forum/showthread.php?t=200875

谷歌上还有很多其他人（无意冒犯，我只是看到他们帮了你。）

你可以试试

#/usr/bin/perl
严格使用；使用警告；
使用YAML；
使用电子邮件：：查找；
my$finder=Email:：Find->new（\&print\u Email）；
while（my$data=）{
$finder->find（\$data）；
}
子打印电子邮件{
打印转储\@；
}
__资料__
假设我有这样一个字符串：
X大学的大学名称pete@school.edu胡说三九
我怎样才能把邮件发出去？

输出：

--- - !!perl/array:Mail::Address - '' - pete@school.edu - pete@school.edu --- - !!perl/array:Mail:：Address - '' - pete@school.edu - pete@school.edu你可以试试

#/usr/bin/perl
严格使用；使用警告；
使用YAML；
使用电子邮件：：查找；
my$finder=Email:：Find->new（\&print\u Email）；
while（my$data=）{
$finder->find（\$data）；
}
子打印电子邮件{
打印转储\@；
}
__资料__
假设我有这样一个字符串：
X大学的大学名称pete@school.edu胡说三九
我怎样才能把邮件发出去？

输出：

--- - !!perl/array:Mail::Address - '' - pete@school.edu - pete@school.edu --- - !!perl/array:Mail:：Address - '' - pete@school.edu

---

- pete@school.eduNope，并非完全相同。这是从自由流动的文本中提取电子邮件地址。如果这是您的问题，您绝对不应该使用带有

[a-Z]

且不区分大小写标志的正则表达式。不，不是完全重复的。这是从自由流动的文本中提取电子邮件地址。如果这是您的问题，您绝对不应该使用带有

[a-Z]

且不区分大小写标志的正则表达式。