Esempio di operatori di assegnazione Perl

Supponiamo che la variabile $ a contenga 10 e la variabile $ b ne contenga 20, quindi di seguito sono riportati gli operatori di assegnazione disponibili in Perl e il loro utilizzo:

Sr.No.	Operatore e descrizione
1	= Operatore di assegnazione semplice, Assegna i valori dagli operandi del lato destro all'operando del lato sinistro Example - $ c = $ a + $ b verrà assegnato il valore di $ a + $ b in $ c
2	+= Aggiungi operatore di assegnazione AND, aggiunge l'operando destro all'operando sinistro e assegna il risultato all'operando sinistro Example - $ c + = $ a è equivalente a $ c = $ c + $ a
3	-= Sottrai AND operatore di assegnazione, sottrae l'operando destro dall'operando sinistro e assegna il risultato all'operando sinistro Example - $ c - = $ a è equivalente a $ c = $ c - $ a
4	*= Moltiplica l'operatore di assegnazione AND, moltiplica l'operando destro con l'operando sinistro e assegna il risultato all'operando sinistro Example - $ c * = $ a è equivalente a $ c = $ c * $ a
5	/= Divide AND operatore di assegnazione, divide l'operando sinistro con l'operando destro e assegna il risultato all'operando sinistro Example - $ c / = $ a è equivalente a $ c = $ c / $ a
6	%= Modulo AND operatore di assegnazione, richiede il modulo utilizzando due operandi e assegna il risultato all'operando sinistro Example - $ c% = $ a è equivalente a $ c = $ c% a
7	**= Operatore di assegnazione AND esponente, esegue il calcolo esponenziale (potenza) sugli operatori e assegna un valore all'operando sinistro Example - $ c ** = $ a è equivalente a $ c = $ c ** $ a

Esempio

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

#!/usr/local/bin/perl
 
$a = 10;
$b = 20;

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

$c = $a + $b;
print "After assignment value of \$c = $c\n";

$c += $a;
print "Value of \$c = $c after statement \$c += \$a\n";

$c -= $a;
print "Value of \$c = $c after statement \$c -= \$a\n";

$c *= $a;
print "Value of \$c = $c after statement \$c *= \$a\n";

$c /= $a;
print "Value of \$c = $c after statement \$c /= \$a\n";

$c %= $a;
print "Value of \$c = $c after statement \$c %= \$a\n";

$c = 2;
$a = 4;
print "Value of \$a = $a and value of \$c = $c\n";
$c **= $a;
print "Value of \$c = $c after statement \$c **= \$a\n";

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

Value of $a = 10 and value of $b = 20
After assignment value of $c = 30
Value of $c = 40 after statement $c += $a
Value of $c = 30 after statement $c -= $a
Value of $c = 300 after statement $c *= $a
Value of $c = 30 after statement $c /= $a
Value of $c = 0 after statement $c %= $a
Value of $a = 4 and value of $c = 2
Value of $c = 16 after statement $c **= $a