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