Verwendung eine Switch-Anweisung in Perl

Die Programmiersprache Perl hat eine spezielle Flow Control-Struktur die Switch-Anweisung aufgerufen. Die Switch-Anweisung wird eine Variable ausgewertet und führt dann eine Case-Anweisung, die die ausgewerteten Variable entspricht. Wenn keine entsprechende Case-Anweisung gefunden wird, wird ein Standardfall ausgeführt. Switch-Anweisungen eignen sich zum verzweigen auf eine der vielen möglichen Ausführungspfade. Es gehört zu den grundlegenden Kontrollstrukturen in vielen Programmiersprachen. Sie können lernen, wie in nur wenigen Minuten eine Switch-Anweisung in Perl zu schreiben.

Anweisungen

1 Erstellen Sie eine neue Textdatei, die mit einer Textverarbeitung wie z. B. Editor. Speichern Sie die Datei mit der Erweiterung .plx.

2 Öffnen Sie eine Eingabeaufforderung, und navigieren Sie zu dem Ordner, in dem Sie die in Schritt 1 erstellte Datei gespeichert. Wenn Sie Ihre Datei im Stammverzeichnis von Laufwerk C:\ in Windows gespeichert haben, können Sie beispielsweise Folgendes an einer Eingabeaufforderung eingeben:

CD C:\

3 Importieren Sie das Switch-Modul durch die folgende Anweisung am Anfang der Quellcodedatei schreiben:

Verwenden Sie die Schalter;

4 Eine Variable deklarieren und ihr einen Wert wie folgt:

$val = 1;

5 Erstellen einer Switch-Anweisung, die in der vorherigen Anweisung deklarierten Variablen ausgewertet wird. Beispielsweise können Sie die folgenden Switch-Anweisung schreiben:

Switch($Val){}

6 Erstellen Sie eine Case-Anweisung, die ausgeführt wird, wenn die Variable $val einen bestimmten Wert übereinstimmt. Alle Case-Anweisungen müssen innerhalb der geschweiften Klammern die Switch-Anweisung gehen. Schreiben Sie eine Case-Anweisung erstellen, die ausgeführt wird, wenn $val gleich 1 ist und das Wort eins druckt, die folgenden:

Fall 1 {print "One"}

7 Erstellen Sie ein paar weitere Case-Anweisungen wie folgt:

Fall 2 {print "zwei"}Fall 3 {print "drei"}

8 Erstellen Sie eine Standard-Case-Anweisung, die ausgeführt wird, wenn die Variable $val anderen Case-Anweisung nicht übereinstimmt. Dies kann mit dem Schlüsselwort sonst wie folgt erreicht werden:

Else {print "Default Case"}

9 Führen Sie das Perl-Skript, indem der folgende Befehl von der Befehlszeile aus, ersetzen den Namen, den Sie in Schritt 1 ausgewählt, für "Dateiname haben":

Perl filename.plx

10 Untersuchen Sie die Ausgabe. Da $val der Wert 1 zugewiesen wird, sieht die Ausgabe wie folgt:

Eine