Foro - Perl en Español

Publicado: **2014-10-21 06:18 @304**

Hola,

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.

Sintáxis: [ Descargar ] [ Ocultar ]

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.002 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]>

Publicado: **2014-10-21 11:00 @500**

Te falta un '.' en el patrón:

while ( $html =~ /(To: ".*?")/gis ) {

Lo que tenías escrito es "un asterisco que aparece cero o una veces".

De todas maneras, yo lo pondría así:

while ( $html =~ /^To: (.*?)$/gis ) {

Foro - Perl en Español

Patrón correcto

Patrón correcto

Re: Patrón correcto