Hvordan Les flere linjer med en fil i Perl

Perl programmeringsspråk ble opprinnelig utviklet for å behandle rapporter. Den har kraftige tekstbehandlingsfunksjoner, herunder lese linjer fra en tekstfil. Du kan plassere hver linje i filen til en matrise, deretter behandle et bestemt antall linjer. Den "åpne" funksjonen brukes til å åpne filen. Filen kan åpnes som skrivebeskyttet, skrive bare, føyer bare eller en kombinasjon av tillatelser. Etter behandlingen av filen, bør du bruke "close" -funksjonen for å lukke filen.

Bruksanvisning

1 Åpne en tom fil i en tekst editor.

2 Skriv inn linjen

! / Usr / bin / perl

å starte Perl-skript.

3 Skriv inn linjen

min $ num = 10;

for å skape den variabelen som inneholder antall linjer du ønsker å lese.

4 Skriv inn linjen

min $ line_num = $ num-1;

å trekke en (1) fra antall linjer du ønsker å skrive ut. Du gjør dette fordi en rekke begynner å telle fra null (0), ikke (1).

5 Skriv inn linjen

Åpne fil "<", "filnavn" eller dø $ !;

å åpne filen som inneholder linjene. Erstatt "filnavn" med navnet på filen du vil åpne. Filen vil bli åpnet som skrivebeskyttet.

6 Skriv inn linjen

mine @lines = <file>;

å plassere innholdet av filen i en matrise. Hver linje i filen vil være et separat element i matrisen.

7 Skriv linjene

for ($ x = 0; $ x <= $ line_num; $ x ++)

{

print @lines [$ x];

}

å skrive ut antall linjer du setter i "$ num" variable. Du kan endre koden mellom klammeparentes til en linje behandling du foretrekker.

8 Skriv inn linjen

Lukk fil;

for å lukke den åpne filen.

9 Lagre filen som "read_lines.pl".

10 Skriv inn kommandoen "perl read_lines.pl" ved ledeteksten for å utføre skriptet.