Perl è uno script moderno linguaggio per scrivere programmi per computer di qualsiasi livello di complessità di programmazione. Programmi in Perl spesso ottenere dati per lavorare con file. I file contengono più righe e potrebbe essere necessario conoscere il numero di una riga che contiene dati specifici. Un ciclo di Perl consente di linee di accesso e conteggio

Istruzioni

1

Dichiarare una matrice di Perl con il comando:

@data=();

2

Aprire un file da leggere dentro il tuo script Perl con il comando:

Open (INPUT, "txt");

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

3

Leggere nelle linee dai file nella matrice:

@data = < INPUT >;

4

Assegnare un valore iniziale pari a zero per la variabile "contare" cioè il contatore di linea nel programma:

$count = 0;

5

Utilizzare il ciclo di Perl "foreach" per andare anche se ogni riga nel file:

foreach {$line (@data)

}

6

Inserire il contatore di riga all'interno del ciclo:

foreach {$line (@data)

$count + +;

}

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

7

Inserire un'istruzione "if" nel ciclo per trovare 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 + +;

Se ($line = ~ / progresso /) {print "il numero di riga è $count"}

}

Il programma uscite sembra che "il numero di riga è di 12".