Cómo encontrar los números de línea usando Perl

Perl es un lenguaje de programación moderno script para escribir programas informáticos de cualquier nivel de complejidad. programas de Perl a menudo obtienen datos para trabajar a partir de archivos. Archivos comprenden varias líneas y puede que tenga que conocer el número de una línea que contiene datos específicos. Un bucle Perl le permite acceder a líneas y recuento

Instrucciones

1 Declarar una matriz Perl con el comando:

@ Data = ();

2 Abrir un archivo para leer dentro del guión de Perl con el comando:

abierta (INPUT, "salida.txt");

Tenga en cuenta que "salida.txt" es un ejemplo de archivo de datos y "ENTRADA" es el identificador de archivo para hacer referencia al archivo dentro de la secuencia de comandos.

3 Lea en las líneas de los archivos en la matriz:

@data = <INPUT>;

4 Asignar un valor inicial de cero a la "cuenta" variable que es el contador de líneas en el programa:

$ Count = 0;

5 Utilice la Perl bucle "foreach" ir aunque cada línea en el archivo:

línea foreach $ (@data) {

}

6 Coloque el contador de líneas dentro del bucle:

línea foreach $ (@data) {

$ Contar ++;

}

Tenga en cuenta que la variable de "cuenta" de forma incremental aumenta con cada iteración del bucle y su valor se corresponde con el número de línea en el archivo.

7 Insertar un "if" en el bucle para averiguar el número de una línea específica. Por ejemplo, lo que necesita saber el número de la línea que comienza con la palabra "progreso". El siguiente fragmento de código hace.

línea foreach $ (@data) {

$ Contar ++;

if ($ linea = ~ / Progreso /) {print "El número de línea es de $ recuento"}

}

Los resultados del programa se parece a "El número de línea es de 12."