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
