Exemplo de operadores de atribuição Perl

Assuma que a variável $ a contém 10 e a variável $ b contém 20, então abaixo estão os operadores de atribuição disponíveis em Perl e seu uso -

Sr. Não.	Operador e descrição
1	= Operador de atribuição simples, atribui valores de operandos do lado direito para operando do lado esquerdo Example - $ c = $ a + $ b será atribuído o valor de $ a + $ b em $ c
2	+= Adicionar operador de atribuição AND, adiciona o operando direito ao operando esquerdo e atribui o resultado ao operando esquerdo Example - $ c + = $ a é equivalente a $ c = $ c + $ a
3	-= Subtrai o operador de atribuição E, subtrai o operando direito do operando esquerdo e atribui o resultado ao operando esquerdo Example - $ c - = $ a é equivalente a $ c = $ c - $ a
4	*= Operador de atribuição Multiply AND, multiplica o operando direito pelo operando esquerdo e atribui o resultado ao operando esquerdo Example - $ c * = $ a é equivalente a $ c = $ c * $ a
5	/= Operador de atribuição e divisão, divide o operando esquerdo com o operando direito e atribui o resultado ao operando esquerdo Example - $ c / = $ a é equivalente a $ c = $ c / $ a
6	%= Módulo E operador de atribuição, leva o módulo usando dois operandos e atribui o resultado ao operando esquerdo Example - $ c% = $ a é equivalente a $ c = $ c% a
7	**= Exponente E operador de atribuição, executa cálculo exponencial (potência) nos operadores e atribui valor ao operando esquerdo Example - $ c ** = $ a é equivalente a $ c = $ c ** $ a

Exemplo

Tente o exemplo a seguir para entender todos os operadores de atribuição disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute 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";

Quando o código acima é executado, ele produz o seguinte 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