Según mi experiencia, hay varias formas para procesar texto en Perl. Pero las más sencillas a mi parecer son leerlas por líneas o leer todo el texto dentro de un buffer.

Para leerla por línea se puede ocupar:

open(origen,"archivo.txt"); // origen es el manejador del archivo
@lineas=<origen>; // lineas es un hash que guarda todas las lineas por separado


foreach $linea (@lineas){
chomp($linea); // chomp le quita el salto de linea
print "$linea\n"
}


close(origen);

Ésto mete todas las lineas que encuentra en el archivo y las guarda en una variable hash, asi podemos accesar a ellas facilmente.

La utilidad que le encontre es cuando uno quiere ocupar sustituciones o busquedas dentro de una línea.

Ahora, para leer todo el texto, podemos ocupar esto:

open(ORIGEN,"archivo.txt");
read(ORIGEN,$buffer,-s $archivoOrigen);
print "$buffer\n"; // esto imprime todo el contenido del archivo de texto de perl
close(ORIGEN);

Esto sirve para hacer sustituciones de fraces que ocupen más de una línea.

salu2

Anuncios