Tengo un listado (correos.txt) formato .txt en este formato:
correo1@hotmail.com
cxbo2@gmail.com
asda3@yahoo.cl
necesito filtrar ese listado o sea:
Que lea todas las lineas de ese texto, y que pase a otro archivo .txt pero solo ciertos @correos... onda que me deje solo los @yahoo.cl y los pase a otro archivo.
En Perl porfavor. :) ;D
Bueno, "correos.txt" contiene :
correo1@hotmail.com
cxbo2@gmail.com
asda3@yahoo.cl
Y quiero filtrar los correos de yahoo.etc... :
#!/usr/bin/perl
use strict;
use warnings;
open(FILE, q[<], "correos.txt") or die("No se pudo abrir el archivo");
open(SALIDA, q[>], "salida.txt") or die("No se pudo trabajar con el archivo");
while(<FILE>)
{
if($_ =~ /yahoo.*/i)
{
print;
print SALIDA $_;
}
}
close(FILE);
close(SALIDA);
exit(0);
Nos muestra en pantalla las concidencias, pero también las volca hacia el archivo "salida.txt".
Resumen:
leo@lein:~/Escritorio$ cat "correos.txt"
correo1@hotmail.com
cxbo2@gmail.com
asda3@yahoo.cl
leo@lein:~/Escritorio$ perl pl.pl
asda3@yahoo.cl
leo@lein:~/Escritorio$ cat "salida.txt"
asda3@yahoo.cl
leo@lein:~/Escritorio$
excelente, funciona de lux
Muchas gracias ;-) ;-)