Uso de la declaración IF en Perl
Sintaxis
A continuación se dan diferentes sintaxis de las declaraciones "si".
A. Declaración if
If (condición)
declaraciones)
La sintaxis anterior se usa para ejecutar las declaraciones si la condición definida en la instrucción "si" devuelve verdaderas.
B. Declaración if-else
If (condición)
declaraciones)
demás
declaraciones)
La sintaxis anterior se usa para ejecutar las declaraciones del bloque "Si" Si la condición devuelve verdadera de lo contrario, ejecute las declaraciones del bloque "más".
C. Declaración if-else-if
if (condición)
declaraciones)
else if (condición)
declaraciones)
else if (condición)
declaraciones)
…
demás
declaraciones)
La sintaxis anterior se usa para ejecutar las declaraciones del primer bloque "si" Si la condición devuelve verdadera de lo contrario, ejecute las declaraciones del siguiente bloque "más si" si la condición devuelve verdadero. Si la condición de todo el bloque "si" devuelve falso, entonces las declaraciones del bloque "más" se ejecutarán.
Los usos de diferentes tipos de declaraciones "si" se han mostrado en la siguiente parte de este tutorial.
Ejemplo-1: uso de la declaración "if"
Cree un archivo Perl con el siguiente código que imprima la fecha y hora actuales del sistema si el número de entrada tomado del usuario es mayor o igual a 10; de lo contrario, no se imprimirá nada. El hora local() La función se ha utilizado en el código para leer la fecha y hora actuales del sistema.
# Tomar una entrada de número del usuario
imprimir "Ingrese un número:";
$ valor =;
# Verifique si el valor de entrada es mayor o igual a 10 o no
if ($ value> = 10)
# Lea la fecha y hora actuales
$ DateTime = LocalTime ();
# Imprima la fecha y el valor de tiempo actual
imprimir ("Hoy es $ DateTime \ n");
Producción
La siguiente salida aparecerá después de ejecutar el código anterior dos veces con los valores de entrada 10 y 5.
Ejemplo-2: Uso de la declaración "if-else"
Cree un archivo Perl con el siguiente código que compara dos valores de número tomados del usuario e imprime un mensaje basado en los valores. La función Chomp () se ha utilizado para eliminar las nuevas líneas de los valores de entrada. La función int () se ha utilizado para convertir el valor de entrada en el número antes de comparar los valores. La declaración "if-else" se ha utilizado aquí para verificar si los números de entrada son iguales o no.
# Tome las entradas de números del usuario
imprimir "Ingrese el primer número:";
$ valor1 =;
imprimir "Ingrese el segundo número:";
$ valor2 =;
# Eliminar la nueva línea de cada entrada
Chomp ($ value1);
Chomp ($ value2);
# Verifique que los valores de entrada son iguales o no
if (int ($ value1) == int ($ value2))
imprimir "$ value1 y $ value2 son iguales.\norte";
demás
imprimir "$ value1 y $ value2 no son iguales.\norte";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 7 y 5.
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 4 y 4.
Ejemplo-3: Uso de la declaración "if-loSif-else"
Cree un archivo de Perl con el siguiente código que verificará si dos valores de número tomados del usuario son iguales o el primer número es mayor que el segundo número, o el primer número es menor que el segundo número. La función Chomp () se ha utilizado para eliminar las nuevas líneas de los valores de entrada. La función int () se ha utilizado para convertir el valor de entrada en el número antes de comparar los valores. La instrucción "if-loSif-else" se ha utilizado aquí para hacer la tarea mencionada anteriormente e imprimir el mensaje apropiado,
# Tomar el número de entradas del usuario
imprimir "Ingrese el primer número:";
$ valor1 =;
imprimir "Ingrese el segundo número:";
$ valor2 =;
# Eliminar la nueva línea de cada entrada
Chomp ($ value1);
Chomp ($ value2);
# Verifique que los valores de entrada son iguales o no
if (int ($ value1) == int ($ value2))
imprimir "$ value1 y $ value2 son iguales.\norte";
# Verifique el primer valor es menor que el segundo valor
ELSIF (int ($ value1) < int($value2))
imprimir "$ value1 es inferior a $ value2.\norte";
demás
imprimir "$ value1 es mayor que $ value2.\norte";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 5 y 5.
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 9 y 5.
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 3 y 6.
Ejemplo-4: Uso de la declaración anidada "si"
Cree un archivo Perl con el siguiente código que usa condiciones anidadas "si" para imprimir un mensaje basado en el valor de entrada tomado del usuario. Según el código, si la marca MCQ tomada del usuario es mayor o igual a 70, entonces las marcas descriptivas se tomarán del usuario y se verificará la segunda condición "si". Si la marca descriptiva es mayor o igual a 50, entonces "Has aprobado el examen."Cualquier otro mensaje se imprimirá si alguna de las condiciones" si "devuelve falso.
# Tome las marcas de MCQ del usuario
imprimir "Ingrese las marcas MCQ:";
$ mcq =;
# Verifique la primera condición
if ($ mcq> = 70)
# Tome las marcas descriptivas del usuario
imprimir "Ingrese las marcas descriptivas:";
$ descriptive =;
# Verifique la segunda condición
if ($ descriptive> = 50)
# Imprimir mensaje cuando ambas condiciones "si" vuelven verdadero
Imprimir "Has aprobado el examen.\norte";
demás
# Imprimir mensaje si la segunda condición "if" devuelve falso
Imprimir "Has fallado en el examen.\norte";
demás
# Imprimir mensaje si la primera condición "if" devuelve falso
Imprimir "Has fallado en el examen.\norte";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 75 y 46.
La siguiente salida aparecerá después de ejecutar el código anterior con los valores 77 y 58.
La siguiente salida aparecerá después de ejecutar el código anterior con el valor 65.
Conclusión
La forma de usar "if" simple, "if-else", "if-loSif-else" y las declaraciones anidadas "si" se han mostrado en este tutorial utilizando múltiples ejemplos.