Verwendung von if -Antage in Perl
Syntax
Verschiedene Syntaxe von „if“ -Anweisungen sind nachstehend angegeben.
A. wenn Anweisung
If (Zustand)
Erklärung (en)
Die obige Syntax wird verwendet, um die Anweisungen auszuführen, wenn die in der Anweisung „if“ definierte Bedingung true zurückgibt.
B. IF-ELSE-Aussage
If (Zustand)
Erklärung (en)
anders
Erklärung (en)
Die obige Syntax wird verwendet, um die Anweisungen des "If" -Blocks auszuführen, wenn die Bedingung true zurückgibt, sonst die Anweisungen des "else" -Blocks ausführen.
C. IF-ELSE-IF ARKTION
if (Zustand)
Erklärung (en)
else if (Bedingung)
Erklärung (en)
sonst wenn (Bedingung)
Erklärung (en)
…
anders
Erklärung (en)
Die obige Syntax wird verwendet, um die Anweisungen des ersten "if" -Blocks auszuführen, wenn die Bedingung ansonsten die Aussagen des nächsten "sonst" -Blocks ausführen, wenn die Bedingung true zurückgibt. Wenn die Bedingung aller "If" -Blocke false zurückgibt, werden die Aussagen des "else" -Blocks ausgeführt.
Die Verwendungen verschiedener Arten von „If“ -Stypen wurden im nächsten Teil dieses Tutorials gezeigt.
Beispiel 1: Verwendung von "if" Anweisung
Erstellen Sie eine Perl -Datei mit dem folgenden Code, der das aktuelle Datum und die Uhrzeit des Systems druckt, wenn die vom Benutzer genommene Eingabenummer größer oder gleich 10 ist. Ansonsten wird nichts gedruckt. Der Ortszeit() Die Funktion wurde im Code verwendet, um das aktuelle Datum und die Uhrzeit des Systems zu lesen.
# Nehmen Sie eine Zahleneingabe vom Benutzer
Druck "eine Nummer eingeben:";
$ value =;
# Überprüfen Sie, ob der Eingangswert größer oder gleich 10 ist oder nicht
if ($ value> = 10)
# Lesen Sie das aktuelle Datum und die aktuelle Uhrzeit
$ datetime = localTime ();
# Drucken Sie den aktuellen Datum und den Uhrzeitwert
print ("Heute ist $ DateTime \ n");
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Codes zweimal mit den Eingangswerten 10 und 5 angezeigt.
Beispiel-2: Verwendung der Anweisung "If-ELSE"
Erstellen Sie eine Perl -Datei mit dem folgenden Code, der zwei vom Benutzer aufgenommene Zahlenwerte vergleicht und eine Nachricht basierend auf den Werten druckt. Die chomp () -Funktion wurde verwendet, um die Newlines aus den Eingangswerten zu entfernen. Die Int () -Funktion wurde verwendet, um den Eingangswert in die Zahl umzuwandeln, bevor die Werte verglichen werden. Die Anweisung „If-ELSE“ wurde hier verwendet, um zu prüfen, ob die Eingabezahlen gleich sind oder nicht.
# Nehmen Sie die Zahleneingänge vom Benutzer
Drucken "Die erste Nummer eingeben:";
$ value1 =;
Drucken "die zweite Nummer eingeben:";
$ value2 =;
# Entfernen Sie die Newline von jedem Eingang
chomp ($ value1);
chomp ($ value2);
# Überprüfen Sie, ob die Eingabewerte gleich sind oder nicht
if (int ($ value1) == int ($ value2))
Druck "$ value1 und $ value2 sind gleich.\N";
anders
Druck "$ value1 und $ value2 sind nicht gleich.\N";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Code mit den Werten 7 und 5 angezeigt.
Die folgende Ausgabe erscheint nach der Ausführung des obigen Code mit den Werten 4 und 4.
Beispiel-3: Verwendung einer Anweisung „IF-ELSIF-ELSE“
Erstellen Sie eine Perl -Datei mit dem folgenden Code, mit dem prüft. Die chomp () -Funktion wurde verwendet, um die Newlines aus den Eingangswerten zu entfernen. Die Int () -Funktion wurde verwendet, um den Eingangswert in die Zahl umzuwandeln, bevor die Werte verglichen werden. Die Anweisung „IF-ELSIF-ELSE“ wurde hier verwendet, um die oben erwähnte Aufgabe zu erledigen und die entsprechende Nachricht zu drucken,
# Nehmen Sie die Anzahl der Eingaben vom Benutzer
Drucken "Die erste Nummer eingeben:";
$ value1 =;
Drucken "die zweite Nummer eingeben:";
$ value2 =;
# Entfernen Sie die Newline von jedem Eingang
chomp ($ value1);
chomp ($ value2);
# Überprüfen Sie, ob die Eingabewerte gleich sind oder nicht
if (int ($ value1) == int ($ value2))
Druck "$ value1 und $ value2 sind gleich.\N";
# Überprüfen Sie, ob der erste Wert geringer ist als der zweite Wert
Elsif (int ($ value1) < int($value2))
Druck "$ value1 ist weniger als $ value2.\N";
anders
Print "$ value1 ist größer als $ value2.\N";
Ausgang
Die folgende Ausgabe wird nach der Ausführung des obigen Code mit den Werten 5 und 5 angezeigt.
Die folgende Ausgabe erscheint nach der Ausführung des obigen Code mit den Werten 9 und 5.
Die folgende Ausgabe wird nach der Ausführung des obigen Code mit den Werten 3 und 6 angezeigt.
Beispiel-4: Verwendung einer verschachtelten Anweisung "if"
Erstellen Sie eine Perl -Datei mit dem folgenden Code, in dem verschachtelte „wenn“ Bedingungen verwendet werden, um eine Nachricht basierend auf dem vom Benutzer aufgenommenen Eingabewert zu drucken. Laut dem Code werden die deskriptiven Markierungen des Benutzers übernommen, wenn der vom Benutzer genommene MCQ. Wenn die beschreibende Marke größer oder gleich 50 ist, dann “, dann“Sie haben die Prüfung bestanden."Alle anderen Nachrichten werden gedruckt, wenn eine der" wenn "Bedingungen falsch zurückgeben.
# Nehmen Sie die MCQ -Marke vom Benutzer
Drucken "Eingeben Sie die MCQ -Marke:";
$ mcq =;
# Überprüfen Sie den ersten Zustand
if ($ mcq> = 70)
# Nehmen Sie die deskriptiven Markierungen vom Benutzer
Druck "Die beschreibenden Marken eingeben:";
$ Deskriptive =;
# Überprüfen Sie den zweiten Zustand
if ($ Descriptive> = 50)
# Meldung drucken, wenn beide „wenn“ Bedingungen true zurückkehren
drucken "Sie haben die Prüfung bestanden.\N";
anders
# Meldung drucken, wenn die zweite „if“ -Sbemessung false zurückgibt
Drucken "Sie haben die Prüfung nicht bestanden.\N";
anders
# Meldung drucken, wenn die erste „wenn“ -Sbundes falsch zurückgibt
Drucken "Sie haben die Prüfung nicht bestanden.\N";
Ausgang
Die folgende Ausgabe erscheint nach der Ausführung des obigen Code mit den Werten 75 und 46.
Die folgende Ausgabe erscheint nach der Ausführung des obigen Code mit den Werten 77 und 58.
Die folgende Ausgabe wird nach der Ausführung des obigen Code mit dem Wert 65 angezeigt.
Abschluss
In diesem Tutorial wurden in diesem Tutorial ein einfaches "if", "if-else", "if-elsif-else" und verschachtelte "if" -Anweisungen angezeigt.