Example of using arithmetic operators in Perl

This example shows how to use the arithmetic operators in Perl.

Code:

# Define some variables
my $num1 = 80;
my $num2 = 30;
my $num3 = 50;

# Print values
print '$num1 = 80' . "\n";
print '$num2 = 30' . "\n";
print '$num3 = 50' . "\n";
print "\n";

# Create a separator line, repeating to 25 times the character -
$sep = "-" x 25 . "\n"; 

# Operator < and >
print '$num1<$num2 : ' . "$num1<$num2 = ";
print $num1<$num2 ? "true" : "false";
print "\n";
print '$num2<$num3 : ' . "$num2<$num3 = ";
print $num2<$num3 ? "true" : "false";
print "\n";
print '$num3>$num1 : ' . "$num3>$num1 = ";
print $num3>$num1 ? "true" : "false";
print "\n";

print $sep;

# Operator +
print '$num1+$num2 : ' . "$num1+$num2=";
print $num1+$num2;
print "\n";
print '$num2+$num3 : ' . "$num2+$num3=";
print $num2+$num3;
print "\n";
print '$num3+$num1 : ' . "$num3+$num1=";
print $num3+$num1;
print "\n";

print $sep;

# Operator /
print '$num1/$num2 : ' . "$num1/$num2=";
$idiv = sprintf "%.3f", $num1/$num2;
print $idiv;
print "\n";
print '$num2/$num3 : ' . "$num2/$num3=";
$idiv = sprintf "%.3f", $num2/$num3;
print $idiv;
print "\n";
print '$num3/$num1 : ' . "$num3/$num1=";
$idiv = sprintf "%.3f", $num3/$num1;
print $idiv;
print "\n";

print $sep;

# Operator *
print '$num1*$num2 : ' . "$num1*$num2=";
print $num1*$num2;
print "\n";
print '$num2*$num3 : ' . "$num2*$num3=";
print $num2*$num3;
print "\n";
print '$num3*$num1 : ' . "$num3*$num1=";
print $num3*$num1;
print "\n";

print $sep;

# rand floating point
$nfp = 1 * (rand 90);
print '[1 * (rand 90)] = ' . $nfp;
print "\n";

# rand integer
$ni = int(1 * (rand 90));
print '[int(1 * (rand 90))] = ' . $ni;
print "\n";

print $sep;

# Extraction of six random integers
for($n=0;$n<7;$n++) {
	print int(1 * (rand 90)) . "\n";
}

Sample result:

mdmsoft@linux-4nve:~/perl> perl operator.pl
$num1 = 80
$num2 = 30
$num3 = 50

$num1<$num2 : 80<30 = false
$num2<$num3 : 30<50 = true
$num3>$num1 : 50>80 = false
-------------------------
$num1+$num2 : 80+30=110
$num2+$num3 : 30+50=80
$num3+$num1 : 50+80=130
-------------------------
$num1/$num2 : 80/30=2.667
$num2/$num3 : 30/50=0.600
$num3/$num1 : 50/80=0.625
-------------------------
$num1*$num2 : 80*30=2400
$num2*$num3 : 30*50=1500
$num3*$num1 : 50*80=4000
-------------------------
[1 * (rand 90)] = 3.28490763168734
[int(1 * (rand 90))] = 49
-------------------------
51
13
48
77
66
36
67