Mensaje citado por Jose Miguel Vidal Lavin <[EMAIL PROTECTED]>:

> al menos con sobervia se llega lejos y se aprende
> con flojera mejor quedate con windows
> 
Bravo! disculpa pero en todo caso estamos hablando de la soberbia y no de la
sobervia

-- 
Alejandro Barros
From [EMAIL PROTECTED]  Mon Oct 11 17:55:51 2004
From: [EMAIL PROTECTED] (Darwin Betancourt)
Date: Mon Oct 11 17:57:47 2004
Subject: Filtrado con perl (OT)
Message-ID: <[EMAIL PROTECTED]>

Amigos de la lista pido disculpas anticipadas por el OT

Mi problema es el siguiente tengo un archivo de texto con direcciones de 
correo electronico y otros constenidos que no me sirven..
La pregunta es como puedo hacer para filtrar las direcciones de correo 
eletronico utilizando perl
y mandarlas a otro archivo, habia pensando en algo como la expresion 
regular: [EMAIL PROTECTED] pero mi problema es que no se donde ni 
como ubicarla

#!/usr/bin/perl
open(FILE, $ARGV[0]);
while(<FILE>) {
    [EMAIL PROTECTED]
    print;
}
close(FILE);

Si alguien me puede hechar una mano..

Gracias anticipadas



-- 

"O
|\_
|-|\
Darwin Betancourt (drw)
User Linux #286294 counter.li.org
Distribucion: Debian Sarge
Kernel 2.6.0
Centro de Computo
Municipio de Loja

Responder a