Declaração Perl a menos

Um Perl unless declaração consiste em uma expressão booleana seguida por uma ou mais declarações.

Sintaxe

A sintaxe de uma declaração a menos na linguagem de programação Perl é -

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

Se a expressão booleana for avaliada como false, então o bloco de código dentro da instrução a menos que será executado. Se a expressão booleana for avaliada comotrue então, o primeiro conjunto de código após o final da instrução a menos (após a chave de fechamento) 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 = 20;
# check the boolean condition using unless statement
unless( $a < 20 ) {
   # if condition is false then print the following
   printf "a is not less than 20\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";
}
print "value of a is : $a\n";

Primeiro, a menos que a instrução use o operador menor que (<), que compara dois operandos e se o primeiro operando for menor que o segundo, ele retorna verdadeiro, caso contrário, retorna falso. Portanto, quando o código acima é executado, ele produz o seguinte resultado -

a is not less than 20
value of a is : 20
a has a false value
value of a is :