Ejemplo de operadores de asignación de Perl

Suponga que la variable $ a tiene 10 y la variable $ b tiene 20, luego, a continuación, se muestran los operadores de asignación disponibles en Perl y su uso:

No Señor.	Operador y descripción
1	= Operador de asignación simple, asigna valores de los operandos del lado derecho al operando del lado izquierdo Example - $ c = $ a + $ b se le asignará un valor de $ a + $ b en $ c
2	+= Agregar operador de asignación Y, agrega el operando derecho al operando izquierdo y asigna el resultado al operando izquierdo Example - $ c + = $ a es equivalente a $ c = $ c + $ a
3	-= Restar operador de asignación Y, resta el operando derecho del operando izquierdo y asigna el resultado al operando izquierdo Example - $ c - = $ a es equivalente a $ c = $ c - $ a
4	*= Multiplica el operador de asignación AND, multiplica el operando derecho con el operando izquierdo y asigna el resultado al operando izquierdo Example - $ c * = $ a es equivalente a $ c = $ c * $ a
5	/= Operador de división Y asignación, divide el operando izquierdo con el operando derecho y asigna el resultado al operando izquierdo Example - $ c / = $ a es equivalente a $ c = $ c / $ a
6	%= Operador de asignación de módulo Y, toma el módulo usando dos operandos y asigna el resultado al operando izquierdo Example - $ c% = $ a es equivalente a $ c = $ c% a
7	**= Operador de asignación Y de exponente, realiza cálculos exponenciales (potencia) en los operadores y asigna valor al operando izquierdo Example - $ c ** = $ a es equivalente a $ c = $ c ** $ a

Ejemplo

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

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

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

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