Foro - Perl en Español

por **BigBear** » 2013-11-04 17:46 @782

Me acuerdo que había preguntado esto antes y lo resolví en PHP, pero no lo encuentro, así que tengo que empezar de nuevo. La pregunta es esa: ¿qué expresión regular me conviene para buscar direcciones de correo en una variable?

Tengo este código, pero no funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $code = "hola mundo [email protected] hola mundo";
 
if($code=~/(.*?)\@(.*?)/) {
print $1."@".$2;
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿ Alguien me puede ayudar ?

P.D.: acá lo encontré en PHP; ahora solo me falta traducirlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

if (!empty($text)) {
$res = preg_match_all(
“/[a-z0-9]+([_\\.-][a-z0-9]+)*@([a-z0-9]+([\.-][a-z0-9]+)*)+\\.[a-z]{2,}/i”,
$text,
$matches
);
Coloreado en 0.020 segundos,  usando GeSHi 1.0.8.4

Como ya se ha dicho en otros hilos (usar el sistema de búsqueda), encontrar o validar direcciones de correo electrónico, es bastante complicado. Es mucho más complicado que usar una expresión regular tan sencilla como /(\S+@\S+)/.

Es mucho más cómodo usar un módulo que sea capaz de hacerlo. Por ejemplo, Email::Address:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Email::Address;
 
my @direcciones = Email::Address->parse($code);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2013-11-05 09:34 @440

Gracias por la ayuda, pero estaba buscando una expresión regular porque voy a hacerlo en Delphi usando un componente llamado perlregex.

¿ Hay alguna posibilidad de encontrar mails con regex ?

por **danimera** » 2013-11-07 11:12 @508

Si abres un módulo buscas donde está la expresión regular y la copias así mismo para que la uses en Delphi con perlregex.

por **explorer** » 2013-11-07 12:29 @562

¡Je, je! Pues lo va a tener difícil... en Email::Address hay, nada más y nada menos, que 26 expresiones regulares :twisted:

por **BigBear** » 2013-11-30 13:44 @613

Hola. Acabo de encontrar una expresión regular para encontrar direcciones de correo en Stackoverflow. El código es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict; use warnings; use feature 'say';
use autodie; # does `... or die "Can't open $file: $!"` for me
my $regex = qr/[A-Z0-9._%+-]+\@[A-Z0-9.-]+\.[A-Z]{2,4}/i;
my $found = 0;
 
my $contact_file = "contacts.txt";
my $email_file   = "emailaddresses.txt";
 
open my $contact, "<", $contact_file;
open my $email, ">", $email_file;
 
while (<$contact>) {    # read from the $contact filehandle
  while (/($regex)/g) { # the /g is optional if there is max one address per line
    $found++;
    say {$email} $1;    # print to the $email file handle. {curlies} are optional.
  }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Funciona a la perfección pero el problema es cuando quiero implementar la expresión regular por mi mismo con este código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $code = "hola mundo [email protected] hola mundo [email protected] sdsa test[at]hotmail.com";
     
my $regex = qr/[A-Z0-9._%+-]+\@[A-Z0-9.-]+\.[A-Z]{2,4}/i;
 
while($code=~/($regex)/g) {
print "mail : $1\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Como ven estoy tratando de sacar todos las direcciones de correo con la expresión regular que encontré en Stackoverflow. El tema es que mi código no devuelve nada.

¿ Qué hice mal ?

por **explorer** » 2013-11-30 15:51 @702

Si usaras el modo strict, el propio Perl te lo hubiera dicho:
Global symbol "@hotmail" requires explicit package name at ./kk.pl line 1.
Global symbol "@test" requires explicit package name at ./kk.pl line 1.
El problema es que has puesto el texto entre comillas dobles, y eso implica interpolación de las variables que hay en el interior, y hay un par de arrobas que le hacen creer a Perl que son variables de array.

Usa comillas simples. O el operador q() (que es lo mismo).

por **BigBear** » 2013-11-30 15:57 @706

Gracias por la ayuda, explorer. Pensé que le había errado en otra cosa.

Foro - Perl en Español

Buscar direcciones de correo electrónico

Buscar direcciones de correo electrónico

Publicidad

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

Re: Buscar direcciones de correo electrónico

¿Quién está conectado?