Declaración de cambio de Perl

Autor：Eve Cole Fecha de actualización：2024-12-24 17:12:01

Una declaración de cambio permite probar una variable igual a múltiples valores. Cada valor se denomina caso y la variable que se está probando se verifica para cada caso de cambio .

La ejecución del caso de cambio se basa en el módulo Switch , que no está instalado de forma predeterminada.

Instale el módulo Switch.pm

Instalar usando CPAN

Abra una ventana de comando, ingrese el comando cpan y luego ingrese el comando install Switch:

 # cpancpan[1]> instalar Switch // Instalar cpan[2]> salir // Salir

Instalación de Ubuntu usando apt-get

 sudo apt-get instalar libswitch-perl

gramática

El formato de sintaxis es el siguiente:

gramática

utilizar Cambiar ; cambiar ( argumento ) { caso 1 { imprimir " Número 1 " } caso " a " { imprimir " cadena a " } caso [ 1..10,42 ] { imprimir " Los números están en la lista " } caso ( @matriz ) { imprimir " números en matriz " } caso / w+ / { imprimir " patrón de coincidencia regular " } caso qr /w+/ { p r int " patrón de coincidencia regular " } caso ( %hash ) { imprimir " hachís " } caso ( & sub ) { imprimir " proceso hijo " } demás { imprimir " No coincide con la condición anterior " } }

Las siguientes son las reglas para las declaraciones de cambio:

Se pueden utilizar parámetros escalares de cualquier tipo entre paréntesis de una declaración de cambio .

Puede haber cualquier cantidad de declaraciones de casos en un conmutador. Cada caso va seguido de un valor a comparar y dos puntos.

El escalar después de la declaración case se comparará con el escalar en la declaración switch para determinar si son iguales.

Cuando la variable que se prueba es igual a la constante en el caso, las declaraciones que siguen al caso se ejecutarán hasta que se encuentre la declaración de interrupción .

La declaración de cambio puede tener una declaración else opcional al final, que se ejecuta si no todos los casos coinciden.

Cuando el caso coincide, se ejecutará el código del bloque de la declaración del caso y la declaración de cambio saltará después de la ejecución.

Después de hacer coincidir el caso, si necesitamos continuar ejecutando la siguiente declaración del caso, debemos agregar la siguiente declaración.

diagrama de flujo

Ejemplo

#!/usr/bin/perl use Cambiar ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; caso 10 { imprimir " Número 10 n " } caso " a " { imprimir " cadena a " } caso [ 1..10,42 ] { imprimir " Los números están en la lista " } caso ( @matriz ) { imprimir " números en matriz " } caso ( %hash ) { imprimir " en el hash " } demás { imprimir " Ninguna condición coincidente " } }

Al ejecutar el programa anterior, el resultado de salida es:

 numero 10

A continuación veamos un ejemplo de uso de next :

Ejemplo

#!/usr/bin/perl use Cambiar ; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; caso 10 { imprimir " Número 10 n " ; siguiente ; # Continuar la ejecución después de hacer coincidir caso " a " { imprimir " cadena a " } caso [ 1..10,42 ] { imprimir " Los números están en la lista " } caso ( @matriz ) { imprimir " números en matriz " } caso ( %hash ) { imprimir " en el hash " } demás { imprimir " Ninguna condición coincidente " } }

Al ejecutar el programa anterior, el resultado de salida es:

 Número 10 Números en la lista