Exemple d'opérateurs d'égalité de chaîne Perl

Vous trouverez ci-dessous une liste des opérateurs de capitaux propres. Supposons que la variable $ a contienne "abc" et que la variable $ b contienne "xyz", vérifions les opérateurs d'égalité de chaîne suivants -

N ° Sr.	Opérateur et description
1	lt Renvoie true si l'argument de gauche est inférieur dans le sens de la chaîne à l'argument de droite. Example - ($ a lt $ b) est vrai.
2	gt Renvoie true si l'argument de gauche est supérieur dans le sens de la chaîne à l'argument de droite. Example - ($ a gt $ b) est faux.
3	le Renvoie true si l'argument de gauche est inférieur ou égal à l'argument de droite dans le sens d'une chaîne. Example - ($ a le $ b) est vrai.
4	ge Renvoie true si l'argument de gauche est supérieur ou égal à l'argument de droite dans le sens d'une chaîne. Example - ($ a ge $ b) est faux.
5	eq Renvoie true si l'argument de gauche est égal au niveau de la chaîne à l'argument de droite. Example - ($ a eq $ b) est faux.
6	ne Renvoie true si l'argument de gauche n'est pas égal à l'argument de droite par chaîne. Example - ($ a ne $ b) est vrai.
sept	cmp Renvoie -1, 0 ou 1 selon que l'argument de gauche est inférieur, égal ou supérieur dans le sens de la chaîne à l'argument de droite. Example - ($ a cmp $ b) vaut -1.

Exemple

Essayez l'exemple suivant pour comprendre tous les opérateurs d'égalité de chaîne 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 = "abc";
$b = "xyz";

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

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

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

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

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

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

$c = $a cmp $b;
print "\$a cmp \$b returns $c\n";

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

Value of $a = abc and value of $b = xyz
abc lt $b is true
$a gt $b is not true
$a le $b is true
$a ge $b is not true
$a ne $b is true
$a cmp $b returns -1