Как извлечь адрес электронной почты из строки с помощью perl и поместить адрес электронной почты в переменную? Моих строк выглядятКак извлечь адрес электронной почты из строки с помощью perl?
Ben Tailor <[email protected]>
[email protected], [email protected], Ben Tailor <[email protected]>
I судимых этот
$string ="Ben Tailor <[email protected]>";
$string =~ /\b([^\s][email protected][^\s]+)\b/g ;
print $string;
И вне положенном XAS:
Ben Tailor <[email protected]>
Кто-то есть идеи?
Фиксированный с помощью
Email::Valid->address($string);
Thx
Он будет выводить то же, что и входную строку, потому что все, что вы делали, выполняло совпадение с регулярным выражением, а затем выводило строку снова. Вы не использовали захваченную часть $ 1 или замените замену s /// g; – dalton