perl 除法运算、取整操作、取余数操作

#!/usr/bin/perl
use strict
 
my $a = 5;
my $b = 2;
 
my tmp1 = $a / $b ;
print "tmp1\n";
 
my tmp2 = int(tmp1);
print "tmp2\n";
 
my tmp3 = $a % $b ;
print "tmp3\n";
 

分别打印如下结果：

2.5

2

1