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."