为什么模数运算符在 Perl 和 PHP 中的行为不同？

Question

我有这个 PHP 函数，它不适用于负数：

function isOdd($num) 
{
   return $num % 2 == 1; 
}

但它适用于正数。

我有这个 Perl 例程，它执行完全相同的操作并且适用于负数

sub isOdd()
{
  my ($num) = @_;
  return $num % 2 == 1;
}

我在翻译函数时犯了任何错误吗？或者是 PHP 错误？

Answer 1

在 PHP 中，x % y 结果的符号是被除数的符号，即 x 但
在 Perl 中，它是除数的符号，即y。

因此，在 PHP 中，$num % 2 的结果可以是 1、-1 或 0。

因此，修复您的函数，将结果与 0 进行比较：

function isOdd($num) { 
  return $num % 2 != 0; 
}