Verwendung von foreach -Schleifen in Perl

„Die Schleife wird verwendet, um einige Aussagen mehrmals zu iterieren. Der für jede Schleife ist eine der nützlichen Schleifen von Perl. Diese Schleife wird hauptsächlich zur Iterierung des Wertearrays verwendet, der die Liste der Daten enthält. Es kann auch für andere Zwecke verwendet werden, z. B. für das Lesen von Dateiinhalten, die Steuerung der Iteration mit verschiedenen Schlüsselwörtern usw. Verschiedene Verwendungen der für jede Schleife wurde in diesem Tutorial gezeigt.”

Syntax

Verschiedene Syntaxen von für jede Schleife sind unten angegeben.

A. foreach var (Array)
Erklärung (en);

Die obige Foreach -Schleife wird verwendet, um die Array -Werte zu iterieren.

B. foreach var (Datei_handler)
Erklärung (en);

Die obige Foreach -Schleife wird verwendet, um den Inhalt einer Datei zu lesen.

C. foreach var ()
Erklärung (en);

Die obige Foreach -Schleife wird verwendet, um die Benutzereingaben zu lesen.

Im nächsten Teil dieses Tutorials wurden verschiedene Verwendungen der Foreach -Schleife gezeigt.

Beispiel 1: Lesen Sie ein eindimensionales Array

Erstellen Sie eine Perl-Datei mit dem folgenden Code, mit dem die Werte eines eindimensionalen Arrays mit A iteriert werden für jede Schleifen und drucken Sie jeden Wert des Arrays in einer Zeile. Im Code wurde ein Array von 5 Zeichenfolgenwerten definiert. In jeder Iteration der Schleife wird jeder Wert des Arrays analysiert und in der Ausgabe mit der Newline gedruckt.

# Deklarieren Sie ein Array von Stringwerten
@Students = ("Mir Sabbir", "Meena Chowdhury", "Lisa Rahman", "Nirob Hossain", "Keya Khan");
# Iterieren Sie die Array -Werte mit der Foreach -Schleife
foreach $ value (@students)

# Drucken Sie den Array -Wert
Druck "$ value \ n";

Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-2: Lesen Sie ein zweidimensionales Array

Erstellen Sie eine Perl-Datei mit dem folgenden Code, der die Werte eines zweidimensionalen Arrays mit A iteriert für jede Schleifen und drucken Sie jeden Wert des Arrays in einer Zeile. Im Code wurde ein zweidimensionales Array von 4 Zeilen und 3 Spalten definiert. Nach der Iteration aller Werte einer Zeile wurde eine zusätzliche Neue Zeile hinzugefügt. Die Werte jeder Zeile wurden durch Verwendung der in der Schleife definierten Objektvariablen analysiert.

# Deklarieren Sie ein zweidimensionales Array
@students = ((

ID => '20227856',
Name => 'Neha Ali' ',
Markierungen => 89
,

ID => '20224523',
Name => 'Mizanur Rahman',
Markierungen => 95
,

ID => '20221278',
Name => 'Ruhul Amin',
Markierungen => 69
,

ID => '20228956',
Name => 'Mehrab Hossain',
Markierungen => 70
,
);
# Iterieren Sie die Array -Werte
foreach $ std (@students)

# Drucken Sie die Array -Werte
Druck "Student ID:", $ std-> 'id', "\ n";
Druck "Student Name:", $ std-> 'name', "\ n";
Print "Student Marks:", $ std-> 'marks', "\ n \ n";

Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-3: Lesen Sie den Wertebereich

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der das iteriert für jede Schleife basierend auf den Werten eines Bereichs -Arrays. In jeder Iteration wird vom Benutzer ein Zahlenwert entnommen und in ein Array eingefügt. Die Werte dieses Arrays werden nach Abschluss der Iteration der Schleife gedruckt.

# Ein Array deklarieren
@Linien;
# Die Schleife viermal wiederholen
für $ $ number (1… 4)

# Nachricht für den Benutzer drucken
Druck "eine Nummer eingeben:";
# Nehmen Sie die Eingabe vom Benutzer
$ line =;
# Fügen Sie den Eingangswert in das Array hinzu
pushen @lines, $ line;

# Drucken Sie die Array -Werte
print "\ erornay -Werte sind: \ n", @lines;

Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-4: Lesen Sie den Inhalt einer Datei durch

Erstellen Sie einen Text mit dem Namen meine Datei.txt mit dem folgenden Inhalt vor dem Testen des Code dieses Beispiels.

meine Datei.txt

Perl ist eine allgemeine Programmiersprache.

Es ist in der Syntax der C -Sprache ähnlich.

Es ist eine Open-Source und interpretierte Sprache.

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der den Inhalt des meine Datei.TXT -Datei und drucken Sie den Dateiinhalt mit a für jede Schleife. Der offen() Die Funktion wurde im Code verwendet, um die Datei zum Lesen zu öffnen. Der "<” symbol is used to open a file for reading in PERL. Next, the für jede Die Schleife wurde zum Lesen und Drucken der Dateiinhaltszeile für Zeile verwendet.

# Legen Sie den Dateinamen fest
$ Dateiname = 'myfile.txt';
# Öffnen Sie die Datei zum Lesen
Öffnen Sie $ file_handler, '<', $filename or die "Unable to open $filename file.";
# Lesen Sie jede Zeile der Datei mit der Foreach -Schleife durch
foreach $ line ()
# Drucken Sie die Zeile der Datei
$ line drucken;

Ausgang
Die folgende Ausgabe erscheint nach der Ausführung des obigen Code, wenn der meine Datei.txt Die Datei gibt es im aktuellen Ort nicht.

Nach dem Erstellen der meine Datei.txt Datei wird nach der Ausführung des obigen Skripts die folgende Ausgabe angezeigt.

Beispiel-5: Steuern Sie die Foreach-Schleife mithilfe des Schlüsselworts "Last"

Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem die für jede Die Schleife wird mit der Verwendung der beendet zuletzt Schlüsselwort basierend auf der “Wenn" Zustand. Der für jede Die Schleife iteriert 10 Mal basierend auf dem Range -Array. Die Schleife wird nach der Iteration der Schleife 4 -mal beendet.

# Definieren Sie die Schleife, um sie 10 Mal zu iterieren
foreach $ nummer (1… 10)
# Drucken Sie den aktuellen Wert
Drucken "Die aktuelle Nummer ist $ Nummer.\N";
#Beenden Sie die Schleife basierend auf dem Zustand "If"
Last if $ Nummer> 3;

# Drucken Sie die Beendigung Nachricht
Druck "Die Schleife wird beendet.\N";

Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt.

Beispiel-6: Lesen Sie die Werte mehrerer Arrays

Erstellen Sie eine Perl -Datei mit dem folgenden Code, der die Werte von zwei numerischen Arrays mithilfe eines einzelnen druckt für jede Schleife. Die Werte von zwei Arrays und die zusammengeführten Werte dieser Arrays werden nach der Ausführung des Codes gedruckt.

# Definieren Sie das erste Array
@array1 = (20, 30, 65);
# Definieren Sie das zweite Array
@array2 = (45, 18, 60, 11);
Druck "Die ersten Array -Werte sind: \ n", join (",@array1)," \ n ";
Druck "Die zweiten Array -Werte sind: \ n", join (",@array2)," \ n ";
Druck "Die Werte beider Arrays sind: \ n";
# Lesen Sie die Werte beider Arrays mithilfe der Schleife durch
foreach $ number ( @array1, @array2)

# Drucken Sie den Array -Wert
"$ number" drucken;

Druck "\ n";

Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes angezeigt

Abschluss

Die Art und Weise der Verwendung die fürsach Schleife, um eindimensionale Arrays, zweidimensionale Arrays, mehrere Arrays und die Dateiinhalte in diesem Tutorial zu analysieren, um dem Perl-Benutzer zu helfen, die Verwendungen der Verwendung zu kennen für jede Schleife in Perl richtig.