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

Perl es un lenguaje de programación de scripts moderna para escribir programas informáticos de cualquier nivel de complejidad. Programas Perl suelen tener datos para trabajar a partir de archivos . Archivos comprenden varias líneas y puede ser necesario conocer el número de la línea que contiene datos específicos. Un bucle de Perl le permite acceder y contar las líneas de Instrucciones
1

Declarar una matriz Perl con el comando:

@ data = ();
2

Abra el archivo para leer dentro del guión de Perl con el comando:

abierto (INPUT , " output.txt ");

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

Lee en las líneas de los archivos de la matriz: .

@ data = ;
4

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

$ count = 0 ;
Página 5

Utilice el bucle Perl " foreach " para ir si cada línea en el archivo :

foreach $ line ( @ data) { }

6

Coloque el contador de líneas dentro del lazo :

foreach $ line ( @ data) {

$ cuenta + + ; }

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

Inserte una instrucción "if" en el bucle para averiguar el número de un determinado line . Por ejemplo , es necesario conocer el número de la línea que comienza con la palabra " progreso ". El siguiente fragmento de código hace

foreach $ line ( @ data) {

$ count + + , .

If ( $ line = ~ /Progreso /) {print " El número de la línea es de $ count" } }

Los resultados del programa se ve como " El número de la línea es de 12. "