我应该如何在Perl中做整数除法？

在Perl中总是做整数除法的好方法是什么？

例如，我想：

real / int = int

int / real = int

int / int = int

解决方法

词法作用域 integer pragma强制Perl在其范围内使用整数算术：

print 3.0/2.1 . "\n";    # => 1.42857142857143
{
  use integer;
  print 3.0/2.1 . "\n";  # => 1
}
print 3.0/2.1 . "\n";    # => 1.42857142857143