Question

How to calculate the remainder in Perl

Answer 1

my $a = 18;
my $b = 5;

my $r = $a % $b;

print "Remainder = $r\n";


## run:
##
## Remainder = 3
## 

 

70+ SQL courses for beginners and professionals

Answer 2

sub remainder {
    my ($a, $b) = @_;
    return $a - int($a / $b) * $b;
}


print -18 % 5, "\n";   
print 18 % -5, "\n";   
print 18 % 5, "\n\n";

print remainder(-18, 5), "\n";   
print remainder(18, -5), "\n";   
print remainder(18, 5), "\n";    


## run:
##
## 2
## -2
## 3
## 
## -3
## 3
## 3
## 

 

70+ SQL courses for beginners and professionals