¿Cómo debo hacer la división de enteros en Perl?

Question

¿Cuál es una buena forma de siempre hacer división de números enteros en Perl?

Por ejemplo, yo quiero:

real/int = int 

int/real = int 

int/int = int 

Answer 1

puede convertir enteros en Perl:

int(5/1.5) = 3; 

Answer 2

El ámbito léxico integer pragma fuerzas de Perl para usar la aritmética de enteros en su alcance:

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 

Answer 3

int(x+.5) redondeará positivo valores hacia el entero más cercano. Redondear es más difícil.

Para redondear hacia cero:

int($x)

Para las soluciones a continuación, incluir la siguiente declaración:

use POSIX;

el redondeo por defecto: POSIX::floor($x)

Para redondear: POSIX::ceil($x)

Para redondear lejos de cero: POSIX::floor($x) - int($x) + POSIX::ceil($x)

para redondear al entero más cercano: POSIX::floor($x+.5)

Tenga en cuenta que int($x+.5) falla mal para valores negativos. int(-2.1+.5) es int(-1.6), que es -1.

Answer 4

Ej 9/4 = 2,25

int (9)/int (4) = 2

9/4 - resto/deniminator = 2

9/4 - 9% 4/4 = 2

Answer 5

esperar que funcione

int (9/4) = 2.

Gracias Manojkumar

Answer 6

puede:

use integer; 

se explica por Michael Ratanapintha o persona utilice de forma manual:

$a=3.7; 
$b=2.1; 

$c=int(int($a)/int($b)); 

aviso, 'int' no está lanzando. esta es la función para convertir el número a la forma entera. esto es porque Perl 5 no tiene una división entera separada. excepción es cuando 'uso entero'. Entonces perderás una división real.