Exemplo de operadores lógicos Perl

Existem os seguintes operadores lógicos suportados pela linguagem Perl. Suponha que a variável $ a seja verdadeira e a variável $ b seja falsa, então -

Sr. Não.	Operador e descrição
1	and Operador lógico chamado AND. Se ambos os operandos forem verdadeiros, a condição se torna verdadeira. Example - ($ a e $ b) é falso.
2	&& O operador E lógico estilo C copia um bit para o resultado se ele existir em ambos os operandos. Example - ($ a && $ b) é falso.
3	or Operador lógico ou chamado. Se qualquer um dos dois operandos for diferente de zero, a condição se torna verdadeira. Example - ($ a ou $ b) é verdadeiro.
4	|| O operador OR lógico estilo C copia um bit se ele existir no operando eather. Example - ($ a || $ b) é verdadeiro.
5	not Operador lógico chamado NOT. Use para reverter o estado lógico de seu operando. Se uma condição for verdadeira, o operador lógico NOT tornará falso. Example - not ($ a e $ b) é verdadeiro.

Exemplo

Tente o exemplo a seguir para entender todos os operadores lógicos disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute este programa.

#!/usr/local/bin/perl
 
$a = true;
$b = false;

print "Value of \$a = $a and value of \$b = $b\n";

$c = ($a and $b);
print "Value of \$a and \$b = $c\n";

$c = ($a  && $b);
print "Value of \$a && \$b = $c\n";

$c = ($a or $b);
print "Value of \$a or \$b = $c\n";

$c = ($a || $b);
print "Value of \$a || \$b = $c\n";

$a = 0;
$c = not($a);
print "Value of not(\$a)= $c\n";

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

Value of $a = true and value of $b = false
Value of $a and $b = false
Value of $a && $b = false
Value of $a or $b = true
Value of $a || $b = true
Value of not($a)= 1