[SOLUCIONADO] Función para extraer emails de una cadena

[perm73]

Hola.
¿Alguien me podría pasar por favor, una función para extraer un solo email de una cadena de texto?
Saludos cordiales.

[perm73]

Ya lo conseguí:
Por si a alguien le hace falta. Con este código me funcionó correctamente.
Seguramente deben haber otras formas, pero yo de programación en PHP apenas tengo experiencia.

$pattern = "/(?:[a-z0-9!#$%&'*+=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+=?^_`{|}~-]+)*|\"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*\")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])/";

preg_match_all($pattern, $cadena_de_texto_a_extraer_el_email, $matches);

foreach($matches[0] as $email){

}