Esempio di operatori aritmetici Perl

Supponiamo che la variabile $ a contenga 10 e la variabile $ b ne contenga 20, quindi i seguenti sono gli operatori aritmatici Perl:

Sr.No.	Operatore e descrizione
1	+ ( Addition ) Aggiunge valori su entrambi i lati dell'operatore Example - $ a + $ b darà 30
2	- (Subtraction) Sottrae l'operando di destra dall'operando di sinistra Example - $ a - $ b darà -10
3	* (Multiplication) Moltiplica i valori su entrambi i lati dell'operatore Example - $ a * $ b darà 200
4	/ (Division) Divide l'operando sinistro per l'operando destro Example - $ b / $ a darà 2
5	% (Modulus) Divide l'operando di sinistra per l'operando di destra e restituisce il resto Example - $ b% $ a darà 0
6	** (Exponent) Esegue il calcolo esponenziale (potenza) sugli operatori Example - $ a ** $ b darà 10 alla potenza 20

Esempio

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

#!/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 il codice sopra viene eseguito, produce il seguente risultato:

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