Perl is een modern script programmeertaal aan computerprogramma's van elk niveau van complexiteit te schrijven . Perl programma's krijgen vaak gegevens te werken met uit bestanden . Bestanden bestaan uit meerdere regels en u kan nodig zijn om het nummer van een lijn die specifieke gegevens bevat kennen . Een Perl lus hebt u toegang tot en tel lijnen instructies 1
Verklaar een Perl array met het commando :
@ data = ( ) ; kopen van 2
Open een bestand te lezen in je Perl-script met de opdracht:
geopend ( INPUT , " uitvoer.txt " ) ;
notitiekaarten die " uitvoer.txt " is een voorbeeld van de gegevens file en " INPUT " is het bestand verwerken om te verwijzen naar het bestand in het script 3
Lees in lijnen van de bestanden naar de array : .
@ data = ; 4
Wijs een beginwaarde van nul tot de variabele "count" , dat is de lijn teller in het programma :
$ count = 0 ; Goedkope 5
Gebruik de Perl loop " foreach " te gaan hoewel elke regel in het bestand :
foreach $ lijn ( @ data ) {
}
Plaats 6 de lijn teller in de lus :
foreach $ lijn ( @ data ) {
$ count + + ;
}
notitiekaarten die de variabele "count " stapsgewijs toeneemt met elke iteratie van de lus en de waarde komt overeen met het regelnummer in het bestand . 7
Plaats een " if" statement in de lus om uit te vinden het nummer van een specifieke lijn . Bijvoorbeeld , moet u het nummer van de regel die begint met het woord kennen " Progress ". Het volgende stuk van de code doet het
foreach $ lijn ( @ data ) {
$ count + + ; .
If ( $ lijn = ~ /Progress /) {print " Het regelnummer is $ count " }
}
Het programma uitgangen ziet eruit als " De lijn nummer is 12 . "