Esempio di operatori di uguaglianza numerica Perl

Questi sono anche chiamati operatori relazionali. Supponiamo che la variabile $ a contenga 10 e la variabile $ b ne contenga 20, quindi controlliamo i seguenti operatori di uguaglianza numerica:

Sr.No.	Operatore e descrizione
1	== (equal to) Controlla se il valore di due operandi è uguale o meno, in caso affermativo la condizione diventa vera. Example - ($ a == $ b) non è vero.
2	!= (not equal to) Controlla se il valore di due operandi è uguale o meno, se i valori non sono uguali la condizione diventa vera. Example - ($ a! = $ B) è vero.
3	<=> Controlla se il valore di due operandi è uguale o meno e restituisce -1, 0 o 1 a seconda che l'argomento di sinistra sia numericamente minore, uguale o maggiore dell'argomento destro. Example - ($ a <=> $ b) restituisce -1.
4	> (greater than) Controlla se il valore dell'operando sinistro è maggiore del valore dell'operando destro, in caso affermativo la condizione diventa vera. Example - ($ a> $ b) non è vero.
5	< (less than) Controlla se il valore dell'operando sinistro è inferiore al valore dell'operando destro, in caso affermativo la condizione diventa vera. Example - ($ a <$ b) è vero.
6	>= (greater than or equal to) Controlla se il valore dell'operando sinistro è maggiore o uguale al valore dell'operando destro, in caso affermativo la condizione diventa vera. Example - ($ a> = $ b) non è vero.
7	<= (less than or equal to) Controlla se il valore dell'operando sinistro è minore o uguale al valore dell'operando destro, in caso affermativo la condizione diventa vera. Example - ($ a <= $ b) è vero.

Esempio

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

#!/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 il codice sopra viene eseguito, produce il seguente risultato:

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