Esempio di operatori di uguaglianza di stringhe Perl

Di seguito è riportato un elenco di operatori azionari. Supponiamo che la variabile $ a contenga "abc" e la variabile $ b contenga "xyz" quindi, controlliamo i seguenti operatori di uguaglianza delle stringhe:

Sr.No.	Operatore e descrizione
1	lt Restituisce vero se l'argomento di sinistra è inferiore in senso stringa rispetto all'argomento di destra. Example - ($ a lt $ b) è vero.
2	gt Restituisce vero se l'argomento di sinistra è maggiore in senso stringa dell'argomento di destra. Example - ($ a gt $ b) è falso.
3	le Restituisce vero se l'argomento di sinistra è inferiore o uguale all'argomento di destra in senso stringa. Example - ($ a le $ b) è vero.
4	ge Restituisce vero se l'argomento di sinistra è maggiore o uguale all'argomento di destra in senso stringa. Example - ($ a ge $ b) è falso.
5	eq Restituisce vero se l'argomento di sinistra è uguale all'argomento di destra in senso stringa. Example - ($ a eq $ b) è falso.
6	ne Restituisce vero se l'argomento di sinistra è stringa diverso dall'argomento di destra. Example - ($ a ne $ b) è vero.
7	cmp Restituisce -1, 0 o 1 a seconda che l'argomento di sinistra sia minore, uguale o maggiore dell'argomento di destra in senso stringa. Example - ($ a cmp $ b) è -1.

Esempio

Prova il seguente esempio per comprendere tutti gli operatori di uguaglianza delle stringhe disponibili in Perl. Copiare e incollare il seguente programma Perl nel file test.pl ed eseguire questo programma.

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

Quando il codice sopra viene eseguito, produce il seguente risultato:

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