Cómo leer varias líneas de un fichero en Perl

Lenguaje de programación Perl fue diseñado originalmente para procesar los informes. Tiene potentes funciones de procesamiento de texto, incluyendo las líneas de lectura de un archivo de texto. Puede colocar cada línea del archivo en una matriz, y luego procesar un número determinado de líneas. La función "abierta" se utiliza para abrir el archivo. El archivo se puede abrir como de sólo lectura, escritura solamente, sólo se añaden información o cualquier combinación de los permisos. Después de procesar el archivo, se debe utilizar la función de "cerrar" para cerrar el archivo.

Instrucciones

1 Abrir un archivo en blanco en cualquier editor de texto.

2 Escriba la línea

! / Usr / bin / perl

para iniciar el script Perl.

3 Escriba la línea

mi $ num = 10;

para crear la variable que contiene el número de líneas que desea leer.

4 Escriba la línea

mi num_linea $ = $ num-1;

para restar uno (1) a partir del número de líneas que desea imprimir. Esto se hace debido a que una matriz comienza a contar desde cero (0), no (1).

5 Escriba la línea

ARCHIVO abierta, "<", "nombre de archivo" o morir $ !;

para abrir el archivo que contiene las líneas. Reemplazar "nombre de archivo" con el nombre del archivo que desea abrir. El archivo se abre como de sólo lectura.

6 Escriba la línea

mis @lines = <file>;

para colocar el contenido del archivo en una matriz. Cada línea del archivo será un elemento separado de la matriz.

7 Escriba las líneas

for ($ x = 0; $ x <= $ num_linea; $ x ++)

{

@lines de impresión [$ x];

}

para imprimir el número de líneas se establece en el "$ num" variable. Puede cambiar el código entre las llaves de cualquier procesamiento línea que prefiere.

8 Escriba la línea

Cerrar archivo;

para cerrar el archivo abierto.

9 Guarde el archivo como "read_lines.pl".

10 Escriba el comando "perl read_lines.pl" en un símbolo del sistema para ejecutar el script.