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)
{
}
}
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$