Exemple d'opérateurs d'égalité numériques Perl

Ceux-ci sont également appelés opérateurs relationnels. Supposons que la variable $ a soit 10 et la variable $ b 20 alors, vérifions les opérateurs d'égalité numériques suivants -

N ° Sr.	Opérateur et description
1	== (equal to) Vérifie si la valeur de deux opérandes est égale ou non, si oui, la condition devient vraie. Example - ($ a == $ b) n'est pas vrai.
2	!= (not equal to) Vérifie si la valeur de deux opérandes est égale ou non, si les valeurs ne sont pas égales, la condition devient vraie. Example - ($ a! = $ B) est vrai.
3	<=> Vérifie si la valeur de deux opérandes est égale ou non et renvoie -1, 0 ou 1 selon que l'argument de gauche est numériquement inférieur, égal ou supérieur à l'argument de droite. Example - ($ a <=> $ b) renvoie -1.
4	> (greater than) Vérifie si la valeur de l'opérande gauche est supérieure à la valeur de l'opérande droit, si oui, la condition devient vraie. Example - ($ a> $ b) n'est pas vrai.
5	< (less than) Vérifie si la valeur de l'opérande gauche est inférieure à la valeur de l'opérande droit, si oui, la condition devient vraie. Example - ($ a <$ b) est vrai.
6	>= (greater than or equal to) Vérifie si la valeur de l'opérande gauche est supérieure ou égale à la valeur de l'opérande droit, si oui, la condition devient vraie. Example - ($ a> = $ b) n'est pas vrai.
sept	<= (less than or equal to) Vérifie si la valeur de l'opérande gauche est inférieure ou égale à la valeur de l'opérande droit, si oui, la condition devient vraie. Example - ($ a <= $ b) est vrai.

Exemple

Essayez l'exemple suivant pour comprendre tous les opérateurs d'égalité numériques disponibles en Perl. Copiez et collez le programme Perl suivant dans le fichier test.pl et exécutez ce programme.

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

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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