Die Programmiersprache Perl wurde ursprünglich zu verarbeiten Berichte entworfen . Es verfügt über leistungsfähige Textverarbeitung Funktionen, einschließlich Lesen von Zeilen einer Textdatei. Sie können jede Zeile der Datei in ein Array zu platzieren , dann verarbeiten eine bestimmte Anzahl von Zeilen . Die "open "-Funktion wird verwendet, um die Datei zu öffnen . Die Datei kann als nur lesen , nur schreiben, nur anhängen oder eine beliebige Kombination von Berechtigungen geöffnet werden. Nach der Verarbeitung der Datei , sollten Sie die Funktion "Schließen" , um die Datei zu schließen. Anleitung
1
Öffnen Sie eine leere Datei in einem beliebigen Texteditor.
2
Geben Sie die Zeile
#! /Usr /bin /perl
.
das Perl-Skript starten
3
Geben Sie die Zeile
my $ num = 10;
, um die Variable zu erstellen , die enthält das . Anzahl der Zeilen, die Sie lesen möchten
4
Geben Sie die Zeile
my $ line_num = $ num -1;
zu einer (1 ) aus dem subtrahieren Anzahl der Zeilen, die Sie drucken möchten. Sie tun dies, weil eine Reihe beginnt mit dem Zählen von Null (0) , nicht (1) .
5
Geben Sie die Zeile
offenen FILE, " <", " Dateiname" oder sterben $ ; !
, um die Datei , die die Zeilen enthält öffnen. Ersetzen Sie " Dateiname" mit dem Namen der Datei, die Sie öffnen möchten. Die Datei wird als schreibgeschützt geöffnet werden
6
Geben Sie die Zeile
my @ lines = ; .
, Um den Inhalt des Ortes Datei in einem Array. Jede Zeile der Datei wird ein separates Element im Array
7
Typ der Linien
for ($ x = 0; . $ X < = $ line_num ; $ x + + )
{
print @ lines [ $ x] ; }
um die Anzahl der Zeilen, die Sie in der " $ num " Variable ausdrucken . Sie können den Code zwischen den geschweiften Klammern zu einer beliebigen Zeile Verarbeitung Sie bevorzugen
8
Geben Sie die Zeile
close FILE ; .
Auf die geöffnete Datei zu schließen.
9
Speichern Sie die Datei als " read_lines.pl " .
10
Geben Sie den Befehl "perl read_lines.pl " an einer Eingabeaufforderung , um das Skript auszuführen.
