¿Por qué el operador de módulo se comporta de manera diferente en Perl y PHP?

Question

He esta función PHP que no funciona para los números negativos:

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

pero funciona para números positivos.

tengo esta rutina Perl, que hace exactamente lo mismo y funciona para números negativos también

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

¿He cometido ningún error en la traducción de la función? o es un error de PHP?

Answer 1

En PHP el signo del resultado de x % y es el signo de dividendo que es x pero
en Perl es la señal de la divisor que es y.

Así que en PHP el resultado de $num % 2 puede ser 1, -1 o 0.

Así arreglar su función de comparar el resultado con 0:

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