Exemple d'opérateurs d'affectation Perl

Supposons que la variable $ a a 10 et la variable $ b 20, alors ci-dessous sont les opérateurs d'affectation disponibles en Perl et leur utilisation -

N ° Sr.	Opérateur et description
1	= Opérateur d'affectation simple, attribue des valeurs des opérandes du côté droit à l'opérande du côté gauche Example - $ c = $ a + $ b aura une valeur attribuée de $ a + $ b dans $ c
2	+= Ajouter l'opérateur d'affectation ET, il ajoute l'opérande droit à l'opérande gauche et attribue le résultat à l'opérande gauche Example - $ c + = $ a équivaut à $ c = $ c + $ a
3	-= Soustraire l'opérateur d'affectation ET, il soustrait l'opérande droit de l'opérande gauche et attribuer le résultat à l'opérande gauche Example - $ c - = $ a équivaut à $ c = $ c - $ a
4	*= Multiplier l'opérateur d'affectation ET, il multiplie l'opérande droit par l'opérande gauche et attribue le résultat à l'opérande gauche Example - $ c * = $ a équivaut à $ c = $ c * $ a
5	/= Opérateur d'affectation de division ET, il divise l'opérande gauche avec l'opérande droit et affecte le résultat à l'opérande gauche Example - $ c / = $ a équivaut à $ c = $ c / $ a
6	%= Opérateur d'assignation de module ET, il prend le module en utilisant deux opérandes et affecte le résultat à l'opérande de gauche Example - $ c% = $ a équivaut à $ c = $ c% a
sept	**= Opérateur d'affectation exposant ET, effectue un calcul exponentiel (puissance) sur les opérateurs et attribue une valeur à l'opérande de gauche Example - $ c ** = $ a équivaut à $ c = $ c ** $ a

Exemple

Essayez l'exemple suivant pour comprendre tous les opérateurs d'affectation 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 = 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";

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

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