Il linguaggio di programmazione Perl ha una struttura speciale di controllo di flusso chiamato l'istruzione switch. L'istruzione switch valuta una variabile e quindi esegue un'istruzione case che corrisponde alla variabile valutata. Se non viene trovata alcuna dichiarazione caso di corrispondenza, viene eseguito un caso di default. istruzioni switch sono utili per la ramificazione a uno dei tanti possibili percorsi di esecuzione. È una delle strutture di controllo di base comuni a molti linguaggi di programmazione. Si può imparare a scrivere un'istruzione switch in Perl in pochi minuti.

istruzione

1 Creare un nuovo file di testo utilizzando un word processor come Blocco note. Salvare il file utilizzando l'estensione .PLX.

2 Aprire un prompt dei comandi e passare alla cartella in cui è stato salvato il file creato nel passaggio 1. Ad esempio, se è stato salvato il file nella directory principale del vostro C: \ in Windows, è possibile digitare quanto segue al prompt dei comandi:

cd C: \

3 Importare il modulo switch scrivendo la seguente istruzione nella parte superiore del file di codice sorgente:

usare Switch;

4 Dichiarare una variabile e assegnarle un valore, come questo:

$ Val = 1;

5 Creare un'istruzione switch che valuta la variabile nella dichiarazione precedente. Ad esempio, è possibile scrivere la seguente istruzione switch:

switch ($ val)
{
}

6 Creare una dichiarazione caso che viene eseguito quando la variabile $ val corrisponde a un valore specifico. Tutte le istruzioni case devono andare all'interno delle parentesi graffe della istruzione switch. Per creare un'istruzione case che viene eseguito quando $ val è uguale a 1 e stampa la parola One, scrivere il seguente:

caso 1 {print "One"}

7 Creare un paio di casi di dichiarazioni, come questo:

Caso 2 {print "Two"}
Caso 3 {print "Tre"}

8 Creare una dichiarazione caso di default che viene eseguito quando la variabile $ val non corrisponde ad alcuna altra dichiarazione caso. Questo può essere realizzato utilizzando la parola chiave altro, in questo modo:

else {print "Case di default"}

9 Eseguire lo script Perl emettendo il seguente comando dalla riga di comando, sostituendo il nome scelto nel passo 1 per "nomefile":

perl filename.plx

10 Esaminare l'output. Dal momento che $ val viene assegnato il valore 1, l'uscita è simile al seguente:

Uno