Hvordan finne linjenumrene Bruke Perl
Perl er et moderne script programmeringsspråk for å skrive dataprogrammer på alle nivå av kompleksitet. Perl programmer ofte få data å jobbe med fra filer. Filer omfatter flere linjer, og du kanskje trenger å vite nummeret på en linje som inneholder spesifikke data. En Perl løkke lar deg få tilgang til og telle linjer
Bruksanvisning
1 Erklærer en Perl matrise med følgende kommando:
@ Data = ();
2 Åpne en fil for å lese inni Perl-skript med følgende kommando:
open (INPUT "output.txt");
Merk at "output.txt" er et eksempel på datafilen og "INNGANG" er filen håndtaket for å referere til filen inne i skriptet.
3 Les i linjer fra filene til matrisen:
@data = <INPUT>;
4 Tildele en initial verdi på null til variabelen "teller" som er linjen teller i programmet:
$ Count = 0;
5 Bruk Perl loop "foreach" å gå om hver linje i filen:
foreach $ linjen (@data) {
}
6 Plasser linjen disken inne i bue:
foreach $ linjen (@data) {
$ Teller ++;
}
Legg merke til at variabelen "teller" øker trinnvis med hver sløyfe iterasjon og dens verdi tilsvarer linjenummer i filen.
7 Sett inn en "hvis" statement i loop for å finne ut nummeret til en bestemt linje. For eksempel må du vite nummeret på linjen som begynner med ordet "Progress". Den følgende del av koden gjør det.
foreach $ linjen (@data) {
$ Teller ++;
if ($ linje = ~ / Fremskritts /) {print "Linjen nummeret er $ count"}
}
Programmet utganger ser ut som "The linjenummer er 12."