Perl ist eine moderne Programmiersprache Skript auf Computerprogramme von beliebiger Komplexität zu schreiben. Perl-Programmen oft Daten aus, mit Dateien zu arbeiten. Dateien umfassen mehrere Zeilen , und Sie müssen , um die Zahl von einer Linie , die bestimmte Daten enthält kennen. Ein Perl -Schleife können Sie für den Zugriff auf und zählen Linien Anleitung
1

Declare ein Perl- Array mit dem Befehl:

@ data = ();
2

Öffnen Sie eine Datei , um in Ihrem Perl-Skript mit dem Befehl gelesen :

open ( INPUT , " output.txt ");

Beachten Sie, dass " output.txt " ist ein Beispiel für die Daten Datei und "INPUT" ist die Datei zu behandeln , um die Datei im Skript beziehen
3

in Leitungen von den Dateien auf dem Array lesen: .

@ data = ;
4

Assign einem Anfangswert von Null auf die Variable "count" , die die Linie Zähler im Programm ist :

$ count = 0;

5

Verwenden Sie die Perl -Schleife " foreach " auf obwohl jede Zeile in der Datei zu gehen :

foreach $ line ( @ data ) { }

6

Platz der Linie Zähler in der Schleife :

foreach $ line ( @ data ) {

$ count + +; }

Beachten Sie, dass die Variable "count" schrittweise erhöht mit jeder Iteration und sein Wert entspricht der Zeilennummer in der Datei.
7

Legen Sie eine " if"-Anweisung in der Schleife , um herauszufinden, die Nummer eines bestimmten Linie . Zum Beispiel müssen Sie die Nummer der Zeile, die mit dem Wort beginnt wissen "Progress ". Das folgende Stück des Code tut es

foreach $ line ( @ data ) {

$ count + +; .

If ($ line = ~ /Fortschritt /) {print " Die Nummer der Zeile ist $ count "} }

Das Programm gibt aussieht " Die Nummer der Zeile 12 ist. "