Ejemplo de operadores de igualdad de cadenas de Perl

A continuación se muestra una lista de operadores de acciones. Suponga que la variable $ a contiene "abc" y la variable $ b contiene "xyz", entonces, verifiquemos los siguientes operadores de igualdad de cadenas:

No Señor.	Operador y descripción
1	lt Devuelve verdadero si el argumento de la izquierda es una cadena menor que el argumento de la derecha. Example - ($ a lt $ b) es cierto.
2	gt Devuelve verdadero si el argumento de la izquierda es una cadena mayor que el argumento de la derecha. Example - ($ a gt $ b) es falso.
3	le Devuelve verdadero si el argumento de la izquierda es en sentido de cadena menor o igual que el argumento de la derecha. Example - ($ a le $ b) es cierto.
4	ge Devuelve verdadero si el argumento de la izquierda es una cadena mayor o igual que el argumento de la derecha. Example - ($ a ge $ b) es falso.
5	eq Devuelve verdadero si el argumento de la izquierda es igual en cadena al argumento de la derecha. Example - ($ a eq $ b) es falso.
6	ne Devuelve verdadero si el argumento de la izquierda no es igual al argumento de la derecha. Example - ($ a ne $ b) es cierto.
7	cmp Devuelve -1, 0 o 1 dependiendo de si el argumento de la izquierda es menor, igual o mayor que el argumento de la derecha. Example - ($ a cmp $ b) es -1.

Ejemplo

Pruebe el siguiente ejemplo para comprender todos los operadores de igualdad de cadenas disponibles en Perl. Copie y pegue el siguiente programa Perl en el archivo test.pl y ejecute este programa.

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

Cuando se ejecuta el código anterior, produce el siguiente resultado:

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

↰ Previous page