El lenguaje de programación Perl tiene una estructura especial de control de flujo se llama la instrucción switch . La sentencia switch evalúa una variable y luego ejecuta una instrucción caso que corresponde a la variable evaluada . Si no se encuentra una sentencia case a juego , se ejecuta un caso de incumplimiento. Sentencias switch son útiles para ramificar a una de las muchas rutas de ejecución posibles . Es una de las estructuras de control básicas comunes a muchos lenguajes de programación . Usted puede aprender cómo escribir una sentencia switch en Perl en sólo unos minutos. Cosas que necesitará de computadora con el intérprete Perl instalado
Mostrar más instrucciones
1

Crear un nuevo archivo de texto con un procesador de textos como el Bloc de notas. Guarde el archivo con la extensión PLX . .
2

Abra un símbolo del sistema y vaya a la carpeta donde guardó el archivo creado en el paso 1 . Por ejemplo , si guardó el archivo en la raíz de la unidad C: \\ en Windows , puede escribir lo siguiente en el símbolo del sistema :

cd C: \\
3

Importar el módulo conmutador escribiendo la siguiente instrucción al principio del archivo de código fuente:

Interruptor uso ;
4

declarar una variable y asignarle un valor , como esto:

$ val = 1 ;
5

Crear una sentencia switch que evalúa la variable declarada en la declaración anterior. Por ejemplo , puede escribir la siguiente sentencia switch : switch

($ val) {

}
6

Crear una declaración de caso que se ejecuta cuando la variable $ val coincide con un valor específico. Todas las declaraciones de casos deben ir dentro de las llaves de la sentencia switch. Para crear una declaración de caso que se ejecuta cuando $ val es igual a 1 y se imprime la palabra Uno , escriba lo siguiente:
caso

1 {print "One" }
7

Crear algunas declaraciones más casos, como este :

caso 2 {print " Two" }

caso 3 {print "Tres" }
8

Crear un defecto declaración de caso que se ejecuta cuando la variable $ val no coincide con ninguna otra declaración de caso . Esto se puede lograr mediante la palabra clave más, como esto:

else { print " caso por defecto "}
9

Ejecute el script en Perl emitiendo el siguiente comando desde la línea de comandos , sustituyendo el nombre que eligió en el paso 1 de " nombre de archivo" :

perl filename.plx
10

Examine la salida . Desde $ val se le asigna el valor 1, la salida es la siguiente:

Uno de