Foro - Perl en Español

por **BigBear** » 2009-06-28 20:17 @886

Hi!

Ando flojeando con las expresiones regulares y no sé cómo extraer un email de un código fuente.

La duda es cómo identificar cualquier email de cualquier página e ir guardándolo en un log.

ejemplo: [email protected]

El asunto no es trivial. Está respondido en el perlfaq9, pero con una solución como la mostrada por netsoul puede valer.

Otra cosa es porqué quieres hacer esto.

Si quieres recoger direcciones de correo de páginas web para luego meterlas en listas de correo no solicitado, os arriesgáis a ser filtrados por los servidores de correo de todo el mundo, aparte de las sanciones administrativas de tu país de origen. Aquí, en España, está penado con hasta 600.000€.

por **BigBear** » 2009-06-29 17:00 @750

Hola netsoul. Gracias por decirme cómo era pero ¿cómo lo haría lo que me pusiste en un script sencillo sin perl -le?

PD: Tranquilo, explorer, no es para nada ilegal.

por **explorer** » 2009-06-29 17:26 @768

Es fácil, como pone en perlrun verás que '-p' equivale a hacer este bucle alrededor del programa descrito con '-e':

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

LINE:
while(<>){
...# tu programa va aquí
}continue{
printordie"-p destino: $!\n";
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No es muy complicado, ¿no?

netsoul te pondrá el programa completo.

El programar en la línea de comandos es por la impaciencia de tener el resultado ya mismo.

por **netsoul** » 2009-06-29 20:00 @875

Aquí estoy. Completando...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

LINE:
while(<>){
s/.*?([.a-z0-9_-]+@[a-z0-9-]+\.[a-z]+[.a-z]+).+$|.+\s/$1/ig;
}continue{
printordie"-p destino: $!\n";
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

;)

Foro - Perl en Español

Cómo extraigo un email completo de un código fuente

Cómo extraigo un email completo de un código fuente

Publicidad

¿Quién está conectado?