Perl är ett modernt skript programmeringsspråk för att skriva datorprogram på alla nivåer av komplexitet . Perlprogram får ofta data att arbeta med från filer . Filer innefattar flera rader och du kan behöva veta hur många av en linje som innehåller specifika uppgifter . En Perl loop kan du komma åt och räkna rader Instruktioner 1
Deklarera en Perl array med kommandot :
@ uppgifter = ( ) ; 2
Öppna en fil för att läsa i din Perl-skript med kommandot :
open ( INPUT , " output.txt " ) ;
Observera att " output.txt " är ett exempel på de uppgifter fil och " INPUT " är filen handtag för att hänvisa till filen inuti manuset 3
Läs i rader från filerna till arrayen : .
@ uppgifter = ; 4
Tilldela ett initialt värde på noll till variabeln " count " som är den linje räknaren i programmet :
$ count = 0 ;
5
Använd Perl loop " foreach " för att gå igenom varje rad i filen :
foreach $ line ( @ data) {
} 6
Placera linjeräknaren inuti slingan :
foreach $ line ( @ data) {
$ count + + ;
}
Observera att variabeln " count " ökar stegvis med varje slingiteration och dess värde motsvarar ett radnummer i filen . 7
in ett "om " uttalande i slingan för att ta reda på hur många av en viss linje. Till exempel måste du veta numret på raden som börjar med ordet " Progress ". Följande stycke av koden gör det
foreach $ line ( @ data) {
$ count + + ; .
If ( $ rad = ~ /Progress /) { print " linjen numret är $ count " }
}
programmens resultat ser ut " radnumret är 12 . " Addera
