Die Perl "open" -Funktion können Sie eine Datei öffnen, in Lese-, Schreib -Modus oder anhängen . Wenn Sie den Inhalt einer Datei lesen, können Sie jede Zeile , um ein neues Element zu speichern in einem Perl Liste variable , dann verwenden Sie die Liste in Ihrem Programm. Allerdings ist die Funktion liest auch die End- of-Line- Zeichen und speichert , dass in der Liste auch. Wenn Sie nicht möchten, dass dieses Zeichen zu erhalten , müssen Sie eine Funktion, die Ordnungen zu schreiben. Anleitung
1

Öffnen Sie ein Perl-Programm -Datei. Geben Sie den folgenden Code:

Open Data " < text.txt ";

Das "open "-Funktion öffnet die Datei mit dem Dateinamen im Ausdruck zur Verfügung gestellt und speichert den Inhalt in die "DATA" Datei-Handle . Das Zeichen "< " gibt , um die Datei in " read" -Modus zu öffnen
2

Geben Sie den folgenden Code: .

My @ lines = ;
< p> Diese Zeile wird ein Perl Liste namens " @ lines " , die jede Zeile aus der Datei speichert als neues Element in der Liste , darunter End- of-Line- Zeichen .
3

Typ Mit dem folgenden Code :

sub trim ($ ) {

my $ string = shift;

$ string = ~ s /\\ s + $ //;
< p> return $ string; .

}

Diese Funktion verwendet einen regulären Ausdruck nachgestellte Leerzeichen aus einer Zeichenkette übergeben , um es als Parameter entfernen
4

Geben Sie den folgenden Code:

for ($ i = 0; $ i < @ lines ; $ i + +) {

@ lines [$ i] = trim ( @ lines [$ i] ); }

Dieser Code durch jedes Element in der Liste Schleife und übergibt sie an den " trim"- Funktion erstellt , überschreibt dann das Element mit den gleichen Daten , jedoch ohne Ende - of-Line- Charakter.
5

Speichern Sie die Programmdatei.