Perl programmeringsspråk ble opprinnelig utviklet for å behandle rapporter . Den har kraftige tekstbehandling funksjoner, blant annet lese linjer fra en tekstfil . Du kan plassere hver linje i filen til en array, deretter behandle et bestemt antall linjer . "Åpen " funksjonen brukes til å åpne filen . Filen kan åpnes som skrivebeskyttet , skrive bare , føyer bare eller en kombinasjon av tillatelser . Etter bearbeiding av filen , bør du bruke " close" -funksjon for å lukke filen . Instruksjoner
en
Åpne en tom fil i en tekst editor.
2
Type linjen
#! /Usr /bin /perl
.
å starte Perl script
3
Type linjen
min $ num = 10;
å skape den variabelen som inneholder de . antall linjer du ønsker å lese
4
Type linjen
min $ line_num = $ num - 1;
å trekke fra én ( 1) fra antall linjer du vil skrive ut. Du gjør dette fordi en rekke begynner å telle fra null ( 0 ) , ikke ( 1 ) .
5
Type linjen
open FILE, " < " , "filnavn" eller dø $; !
å åpne filen som inneholder linjene . Erstatt "filnavn" med navnet på filen du vil åpne. Filen vil bli åpnet som skrivebeskyttet
6
Type linjen
min @ linjer = ; .
Å plassere innholdet i fil i en matrise. Hver linje i filen vil være et eget element i matrisen
7
Type linjene
for ($ x = 0; . $ X < = $ line_num , $ x + + )
{
print @ linjer [$ x ];
}
å skrive ut antall linjer du satt i " $ num " variable . Du kan endre koden mellom klammeparentes til hvilken som helst linje behandling du foretrekker
8
Type linjen
nær FIL ; .
Å lukke den åpne filen .
9
Lagre filen som " read_lines.pl " .
10
Skriv kommandoen " perl read_lines.pl " i en ledetekst for å utføre skriptet .