Perl er en moderne script programmeringssprog til at skrive edb-programmer på alle niveauer af kompleksitet . Perl programmer ofte få data til at arbejde med fra filer . Filer omfatter flere linjer , og du kan have brug for at vide, at antallet af en linje , der indeholder specifikke data. En Perl loop giver dig adgang til og tælle linjer Instruktioner
1

Erklær en Perl array med kommandoen : Hej

@ data = ();
2 < p > Åbn en fil for at læse inde i din Perl script med kommandoen : Hej

åbne ( INPUT " output.txt ");

Bemærk at " output.txt " er et eksempel på de data fil og " INPUT " er den fil håndtag til at henvise til den fil inde i scriptet
3

Læs i linjer fra filerne til array : .

@ data = ;
4

Tildel en startværdi på nul til variablen " count ", der er den linje tæller i programmet : Hej

$ count = 0 ;

5

Brug Perl loop " foreach " for at gå selv hver linje i filen : Hej

foreach $ line ( @ data) {

}
6

Placer linjen tæller inde i løkken : Hej

foreach $ line (@ data) {

$ count + +;

}

Bemærk at variablen " count" trinvist stiger med hver sløjfe iteration og dens værdi svarer til det linjenummer i filen.
7

Indsæt et "hvis" erklæring i løkken for at finde ud af antallet af en specifik linje . For eksempel skal du kende nummeret på den linje , der starter med ordet " Progress ". Følgende stykke af koden gør det

foreach $ line ( @ data) {

$ count + +; .

If ($ line = ~ /Fremskridt /) { print "The linjenummer er $ count "}

}

programmet udgange ligner " linjen nummer er 12 ".