Arithmetic Operators in Perl
What are the Arithmetic Operators in Perl?
Explanation
The following are the arithmetic operators in Perl.
Operator | Description |
+ | Addition operator |
- | Subtraction operator |
* | Multiplication operator |
/ | Division operator |
% | Modulus operator |
** | Exponentiation operator |
The operators +, -, *, / take two operands and return the sum, difference, product and quotient respectively.
Perl does an floating point division not an integral division. To get the integral quotient one has to use int() function. Say if you divide "int(5/2)" the result will be 2, to get the exact result use the code below.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
$num = 5 / 2;
print int($num+0.5), "n";
Result :
3
You may think of using modulus operator which has got some issues. So it's used only if both the operands are positive. Not just that floating point numbers are coerced to integers.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
$a = 82;
$b = 23.6;
$mod = $a % 80;
$mod1 = $b % 21;
print "The modulus of positive numbers:$mod";
print "<br>";
print "The modulus of floating numbers:$mod1";
Result :
The modulus of positive numbers:2
The modulus of floating numbers:2