28Dec/090
Abrir y recorrer un fichero con Perl
A partir de ahora iré poniendo las cosas interesantes que vaya descubriendo de este lenguaje (nuevo para mí por cierto). Para empezar algo muy útil, abrir y recorrer un fichero:
##
##
##abrimos el fichero
open (nombre_manejador, "<nombre_fichero.txt") || die "couldn't open the file!";
while(<nombre_manejador>)
{
my $linea=$_;
}
Con este código conseguimos abrir un fichero que quedará referenciado por nombre_manejador. Con el bucle while vamos recorriéndolo y cada nueva línea va referenciada por $_ (se irá incrementando por cada iteración del bucle).
Fácil, ¿no?