Necesito coger la dirección incorrecta del correo de "Delivery Status Notification (Failure)".
Para ello me he montado un script que se encarga de acceder a todos los correos con este asunto. El problema es al ejecutar el patrón de búsqueda en el interior del contenido del correo.
Using perl Syntax Highlighting
- while ( my ( $html ) = getTextIMAP('Delivery Status Notification (Failure)') ) {
- print "entro en primer while \n";
- if ($html) {
- while ( $html =~ /(To: "*?")/gis ) {
- my $correo = $1;
- print "correo encontrado. $correo \n";
- ####enviar correo
- }
- print "acabo while de búsqueda de TO: \n";
- }else{
- print "error primer if \n";
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El contenido del correo está en la variable $html y necesito sacar el correo de la línea:
To: "[b][email protected]" <[email protected]>