Можно создать дубликат:
How to extract email address from a string using perl?Получить письмо от строки
Скажем, у меня есть строка, как это:
Доктор X университет имени школы в никуда Pete @ school.edu Blah blah 3 one niner
Как я могу получить письмо оттуда?
Вы не говорите на языке, но вы можете использовать этот метод:
http://www.codeproject.com/KB/vb/extractemail.aspx http://www.webdeveloper.com/forum/showthread.php?t=200875
и там было много другие в Google (без обид, только то, что я видел, чтобы помочь вам.)
Вы можете попробовать Email::Find.
#!/usr/bin/perl
use strict; use warnings;
use YAML;
use Email::Find;
my $finder = Email::Find->new(\&print_email);
while (my $data = <DATA>) {
$finder->find(\$data);
}
sub print_email {
print Dump \@_;
}
__DATA__
Say I have a string like this:
Dr. X University of School name in nowhere [email protected] Blah blah 3 one niner
How would I get the email out of there?
Выход:
---
- !!perl/array:Mail::Address
- ''
- [email protected]
- [email protected]
Неа, не является точной копией. Это делается для извлечения адресов электронной почты из текста, свободного от потока. – 2010-11-24 17:20:23
Если это ваша проблема, вы определенно не должны использовать регулярное выражение с `[A-Z]`, а не флагом нечувствительного флага. – Axeman 2010-11-24 18:22:02