Come trovare i numeri di riga utilizzando Perl

Perl è un linguaggio di programmazione moderno script per scrivere programmi per computer di qualsiasi livello di complessità . Programmi Perl spesso ottenere dati con cui lavorare da file . I file comprendono più righe e potrebbe essere necessario conoscere il numero di una riga che contiene dati specifici . Un ciclo Perl permette di accedere e di contare le righe Istruzioni
1

dichiarare una matrice Perl con il comando :

@ data = ();
2

Aprire un file da leggere all'interno del vostro script Perl con il comando :

open ( INPUT , " output.txt ");

noti che " output.txt " è un esempio dei dati del file e "INPUT " è il file di maniglia per fare riferimento al file all'interno dello script
3

Leggi in linee dai file alla matrice : .

@ data = ;
4

assegnare un valore iniziale pari a zero alla variabile "count" , che è il contatore di riga del programma :

$ count = 0 ;

5

utilizzare il ciclo Perl " foreach " per andare anche se ogni riga del file :

foreach $ line ( @ data) { }

6

Inserire il contatore di linea all'interno del ciclo :

foreach $ line ( @ data) {

$ contatore + + ; }

noti che la variabile "count" aumenta in modo incrementale con ogni iterazione del ciclo e il suo valore corrisponde al numero di riga nel file .
7

Inserire un "if" nel ciclo di scoprire il numero di una specifica linea . Ad esempio , è necessario conoscere il numero della riga che inizia con la parola "progresso". Il seguente pezzo di codice fa

foreach $ line ( @ data) {

$ contatore + +; .

If ( $ linea = ~ /Progress /) {print " Il numero di riga è $ contatore "} }

I risultati del programma si presenta come " Il numero di riga è di 12 ".

• Come passare parametri a subroutine in Perl 
• Come determinare il numero di elementi sono in un array usando Perl