Exemplo de operadores aritméticos Perl

Suponha que a variável $ a contenha 10 e a variável $ b contenha 20, a seguir estão os operadores aritmáticos Perl -

Sr. Não.	Operador e descrição
1	+ ( Addition ) Adiciona valores em qualquer lado do operador Example - $ a + $ b dará 30
2	- (Subtraction) Subtrai o operando direito do operando esquerdo Example - $ a - $ b dará -10
3	* (Multiplication) Multiplica os valores em ambos os lados do operador Example - $ a * $ b dará 200
4	/ (Division) Divide operando esquerdo pelo operando direito Example - $ b / $ a dará 2
5	% (Modulus) Divide operando esquerdo pelo operando direito e retorna o resto Example - $ b% $ a dará 0
6	** (Exponent) Executa cálculo exponencial (potência) nos operadores Example - $ a ** $ b dará 10 à potência 20

Exemplo

Tente o exemplo a seguir para entender todos os operadores aritmáticos disponíveis em Perl. Copie e cole o seguinte programa Perl no arquivo test.pl e execute este programa.

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

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

$c = $a + $b;
print 'Value of $a + $b = ' . $c . "\n";

$c = $a - $b;
print 'Value of $a - $b = ' . $c . "\n";

$c = $a * $b;
print 'Value of $a * $b = ' . $c . "\n";

$c = $a / $b;
print 'Value of $a / $b = ' . $c . "\n";

$c = $a % $b;
print 'Value of $a % $b = ' . $c. "\n";

$a = 2;
$b = 4;
$c = $a ** $b;
print 'Value of $a ** $b = ' . $c . "\n";

Quando o código acima é executado, ele produz o seguinte resultado -

Value of $a = 21 and value of $b = 10
Value of $a + $b = 31
Value of $a - $b = 11
Value of $a * $b = 210
Value of $a / $b = 2.1
Value of $a % $b = 1
Value of $a ** $b = 16