integer - 浮動小数点ではなく整数算術を使うための Perl プラグマ
use integer;
$x = 10/3;
# $x is now 3, not 3.33333333333333333これは、BLOCK 内で整数演算を使うようにコンパイラに知らせます。 多くのマシンで、これはほとんどの計算に対して大きな意味はありませんが、 浮動小数点演算ハードウェアを持たないマシンにとっては、性能上 大きな差となります。
これはほとんどの算術および関係 演算子 がオペランドと結果を どのように扱うかにのみ影響を与え、 その他の全てでどのように数値を扱うかには影響を 与えない ことに 注意してください。 具体的には、use integer; は算術演算子 (+, -, *, /, %, +=, -=, *=, /=, %=, 単項のマイナス)、比較演算子 (<, <=, >, >=, ==, !=, <=>)、ビット単位演算子 (|, &, ^, <<, >>, |=, &=, ^=, <<=, >>=) の結果を計算する前に オペランドの小数部は切り詰め (または切り捨て) られます, 結果の小数部も同様に切り詰められます。 さらに、オペランドと結果の範囲はおなじみの 2 の補数に制限されます; つまり、32 ビットアーキテクチャでは -(2**31) .. (2**31-1)、 64 ビットアーキテクチャでは -(2**63) .. (2**63-1) です。 例えば、以下のコードは
use integer;
$x = 5.8;
$y = 2.5;
$z = 2.7;
$a = 2**31 - 1; # 32 ビットマシンでの最大の正数
$, = ", ";
print $x, -$x, $x + $y, $x - $y, $x / $y, $x * $y, $y == $z, $a, $a + 1;以下の結果となります: 5.8, -5, 7, 3, 2, 10, 1, 2147483647, -2147483648
$x は、まだ演算されていないので、5.8 という非整数値を持っているように 表示されることに注意してください。 最大の整数から最小の整数への回り込みにも注意してください。 また、関数に渡される引数と、関数から返される値は、 use integer; の影響を 受けません。 例えば、
srand(1.5);
$, = ", ";
print sin(.5), cos(.5), atan2(1,2), sqrt(2), rand(10);これは use integer; のありなしで同じ結果を返します。 累乗演算子 ** も影響を受けないので、2 ** .5 は常に 2 の平方根です。 そして、事前と事後のインクリメントおよびデクリメント演算子 ++ と -- も use integer; の影響を受けません。 正当にもこれをバグだと考える人もいます -- しかし少なくともこれは 長年存在するものです。
最後に、use integer; はビット単位演算子にも追加の影響を与えます。 通常、オペランドと結果は 符号なし 整数として扱われますが、 use integer; 付きでは、オペランドと結果は 符号付き になります。 これは、特に、~0 は -1、-2 & -5 は -6 になることを意味します。
内部的には、(C コンパイラによって提供される) ネイティブな整数算術が 使われます。 これは、算術演算の Perl 独自の意味論は保存されないことを意味します。 よくある問題の源の一つは、負数の剰余で、Perl の方式とハードウェアの 方式は違うかも知れません。
% perl -le 'print (4 % -3)'
-2
% perl -Minteger -le 'print (4 % -3)'
1"Pragmatic Modules" in perlmodlib, "Integer Arithmetic" in perlop を 参照してください。