The Perl " öppna " -funktionen kan du öppna en fil i läs-, skriv eller lägga läget . När du läser innehållet i en fil , kan du spara varje rad till ett nytt element i en Perl lista variabel , sedan använda listan i ditt program . Men läser funktionen också slutet - av - line karaktär och sparar den i listan också . Om du inte vill bevara denna karaktär , måste du skriva en funktion som trimmar det . Instruktioner
1
Öppna ett Perl programfil . Skriv följande kod :
öppna data , " < text.txt ";
" open " funktion öppnar filen från filnamnet i uttrycket och sparar innehållet i " DATA " filskaft . Den " < " anger att öppna filen i " read " läge
2
Skriv följande kod : .
Min @ lines = ;
Denna rad skapar en Perl lista som kallas "@ lines" som sparar varje rad från filen som ett nytt element i listan , inklusive end -of - line tecken .
3
Type följande kod :
sub trim ( $ ) {
min $ string = skift,
$ string = ~ s /\\ s + $ //;
return $ string , .
}
Denna funktion använder ett reguljärt uttryck för att ta bort avslutande tomrum tecken från en sträng som skickas till den som en parameter
4
Skriv följande kod :
för ( $ i = 0 ; $ i < @ linjer; $ i + + ) {
@ linjer [ $ i] = trim ( @ linjer [ $ i] ) ;
}
koden loopar igenom varje element i listan , och skickar den till " trim " -funktionen som du skapade , skriver då elementet med samma data , utom utan slut -of - line karaktär .
5
Spara programfilen .
