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. "