Instrução Perl UNLESS ... ELSE

Um Perl unless declaração pode ser seguida por um opcional else instrução, que é executada quando a expressão booleana é verdadeira.

Sintaxe

A sintaxe de um unless...else declaração na linguagem de programação Perl é -

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

Se a expressão booleana for avaliada como true então o unless block de código será executado de outra forma else block de código será executado.

O número 0, as strings '0' e "", a lista vazia () e undef são todos false em um contexto booleano e todos os outros valores são true. Negação de um valor verdadeiro por! ou not retorna um valor falso especial.

Diagrama de fluxo

Exemplo

#!/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";

Quando o código acima é executado, ele produz o seguinte resultado -

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