Perl er et moderne script programmeringsspråk for å skrive dataprogrammer på alle nivå av kompleksitet . Perl programmer ofte få data å arbeide med fra filer . Filer omfatter flere linjer , og du trenger å vite nummeret til en linje som inneholder spesifikke data . En Perl løkke lar deg få tilgang til og telle linjer Instruksjoner
en

Erklærer en Perl matrise med følgende kommando:

@ data = ();
2

Åpne en fil for å lese inni Perl script med følgende kommando:

åpen ( KILDE, " output.txt ");

Merk at " output.txt " er et eksempel på data filen og "INNGANG" er filen håndtere å referere til filen inne i skriptet
3

Les i linjer fra filene til matrise: .

@ data = ;
4

Angi en initiell verdi på null til variabelen " teller" som er linjen teller i programmet : en

$ teller = 0 ;

5

Bruk Perl loop " foreach " å gå om hver linje i filen : en

foreach $ linje ( @ data) {

}
6

Place linjen disken inne i bue:

foreach $ linje (@ data) {

$ teller + +;

}

Merk at variabelen "teller " øker gradvis med hver sløyfe iterasjon og dens verdi tilsvarer linjenummer i filen .
7

Sett en " hvis " statement i loop for å finne ut nummeret til en spesifikk linje . For eksempel trenger du å vite hvor mange av linjen som begynner med ordet "Progress ". Følgende del av koden gjør det

foreach $ linje ( @ data) {

$ teller + +; .

If ( $ linje = ~ /Progress /) { print " linjen nummer er $ teller "}

}

programmet utganger ser ut som " The linjenummer er 12 år. "