Il linguaggio di programmazione Perl ha una speciale struttura di controllo di flusso chiamato l'istruzione switch . L'istruzione switch valuta una variabile e quindi esegue un'istruzione case che corrisponde alla variabile valutato. Se nessuna accusa dichiarazione di corrispondenza viene trovata , un caso di default viene eseguito. Istruzioni switch sono utili per la ramificazione di 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. Cose che ti serviranno 
 Computer con Perl Interpreter installato 
 Show More Istruzioni 
 1 
 Creare un nuovo file di testo utilizzando un elaboratore di testo come Blocco note. Salvare il file utilizzando l'estensione . PLX . 
 2 
 Aprire il prompt dei comandi e passare alla cartella in cui è stato salvato il file creato nel passaggio 1 . Per esempio, se avete salvato il file nella directory principale del vostro unità C: \\ in Windows, è possibile digitare quanto segue al prompt dei comandi: 
 
 cd C : \\ 
 3 
 importare il modulo switch , scrivendo la seguente istruzione all'inizio del file di codice sorgente : 
 uso Interruttore 
 ; 
 4 
 dichiarare una variabile e assegnarle un valore , come questo : 
 
 $ val = 1; 
 5 
 Creare un'istruzione switch che valuta la variabile dichiarata nella dichiarazione precedente . Ad esempio , è possibile scrivere la seguente istruzione switch : Cambia 
 ( $ val ) per 
 { 
 
 } 
 6 
 Creare un'istruzione case 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 viene stampata la parola One , scrivere il seguente : 
 
 caso 1 { print " One" } 
 7 
 Creare alcune istruzioni case più, come questo : 
 
 caso 2 {print "Two" } 
 
 caso 3 {print "Tre" } 
 8 
 Creare un predefinito dichiarazione caso che viene eseguito quando la variabile $ val non corrisponde a nessun altro caso dichiarazione. Questo può essere realizzato utilizzando la parola chiave altro, come questo : 
 
 else { print "Case di default" } 
 9 
 Eseguire lo script Perl eseguendo il seguente comando dalla riga di comando , sostituendo il nome scelto nel passo 1 per " filename" : 
 
 perl filename.plx 
 10 
 Esaminare l'output . Poiché $ val viene assegnato il valore 1 , l'output è simile al seguente : 
 
 One