Declaración de Perl UNLESS ... ELSE

Una perl unless La declaración puede ir seguida de una else declaración, que se ejecuta cuando la expresión booleana es verdadera.

Sintaxis

La sintaxis de un unless...else declaración en el lenguaje de programación Perl es -

unless(boolean_expression) {
   # statement(s) will execute if the given condition is false
} else {
   # statement(s) will execute if the given condition is true
}

Si la expresión booleana se evalúa como true entonces la unless block de código se ejecutará de lo contrario else block de código se ejecutará.

El número 0, las cadenas '0' y "", la lista vacía () y undef son todos false en un contexto booleano y todos los demás valores son true. Negación de un valor verdadero por! o not devuelve un valor falso especial.

Diagrama de flujo

Ejemplo

#!/usr/local/bin/perl
 
$a = 100;
# check the boolean condition using unless statement
unless( $a == 20 ) {
   # if condition is false then print the following
   printf "given condition is false\n";
} else { 
   # if condition is true then print the following
   printf "given condition is true\n";
}
print "value of a is : $a\n";

$a = "";
# check the boolean condition using unless statement
unless( $a ) {
   # if condition is false then print the following
   printf "a has a false value\n";
} else {
   # if condition is true then print the following
   printf "a has a true value\n";
}
print "value of a is : $a\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

given condition is false
value of a is : 100
a has a false value
value of a is :