Perl è un linguaggio di programmazione moderno script per scrivere programmi per computer di qualsiasi livello di complessità. programmi Perl spesso ottenere i dati per lavorare con i file da. 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 linee di conteggio

istruzione

1 Dichiarare un array di Perl con il comando:

@ Data = ();

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

aperto (INPUT, "output.txt");

Si noti che "output.txt" è un esempio di file di dati e "INPUT" è l'handle di file per fare riferimento al file all'interno dello script.

3 Leggi in linee dai file alla matrice:

@data = <INPUT>;

4 Assegnare un valore iniziale di zero al "conteggio" variabile che è il contatore linea di programma:

$ Count = 0;

5 Utilizzare il Perl loop "foreach" per andare anche se ogni riga nel file:

foreach $ line (@data) {

}

6 Posizionare il contatore di linea all'interno del ciclo:

foreach $ line (@data) {

$ Count ++;

}

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

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

foreach $ line (@data) {

$ Count ++;

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

}

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