Exemplo de operadores de igualdade numérica Perl

Eles também são chamados de operadores relacionais. Suponha que a variável $ a tenha 10 e a variável $ b tenha 20, então, vamos verificar os seguintes operadores de igualdade numérica -

Sr. Não.	Operador e descrição
1	== (equal to) Verifica se os valores de dois operandos são iguais ou não, se sim a condição torna-se verdadeira. Example - ($ a == $ b) não é verdade.
2	!= (not equal to) Verifica se o valor de dois operandos é igual ou não; se os valores não são iguais, a condição se torna verdadeira. Example - ($ a! = $ B) é verdadeiro.
3	<=> Verifica se o valor de dois operandos é igual ou não e retorna -1, 0 ou 1 dependendo se o argumento esquerdo é numericamente menor, igual ou maior que o argumento direito. Example - ($ a <=> $ b) retorna -1.
4	> (greater than) Verifica se o valor do operando esquerdo é maior que o valor do operando direito, se sim, a condição torna-se verdadeira. Example - ($ a> $ b) não é verdade.
5	< (less than) Verifica se o valor do operando esquerdo é menor que o valor do operando direito; se sim, a condição torna-se verdadeira. Example - ($ a <$ b) é verdadeiro.
6	>= (greater than or equal to) Verifica se o valor do operando esquerdo é maior ou igual ao valor do operando direito, se sim a condição torna-se verdadeira. Example - ($ a> = $ b) não é verdade.
7	<= (less than or equal to) Verifica se o valor do operando esquerdo é menor ou igual ao valor do operando direito, se sim a condição torna-se verdadeira. Example - ($ a <= $ b) é verdadeiro.

Exemplo

Tente o exemplo a seguir para entender todos os operadores numéricos de igualdade disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute este programa.

#!/usr/local/bin/perl
 
$a = 21;
$b = 10;

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

if( $a == $b ) {
   print "$a == \$b is true\n";
} else {
   print "\$a == \$b is not true\n";
}

if( $a != $b ) {
   print "\$a != \$b is true\n";
} else {
   print "\$a != \$b is not true\n";
}

$c = $a <=> $b;
print "\$a <=> \$b returns $c\n";

if( $a > $b ) {
   print "\$a > \$b is true\n";
} else {
   print "\$a > \$b is not true\n";
}

if( $a >= $b ) {
   print "\$a >= \$b is true\n";
} else {
   print "\$a >= \$b is not true\n";
}

if( $a < $b ) {
   print "\$a < \$b is true\n";
} else {
   print "\$a < \$b is not true\n";
}

if( $a <= $b ) {
   print "\$a <= \$b is true\n";
} else {
   print "\$a <= \$b is not true\n";
}

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

Value of $a = 21 and value of $b = 10
$a == $b is not true
$a != $b is true
$a <=> $b returns 1
$a > $b is true
$a >= $b is true
$a < $b is not true
$a <= $b is not true