Comment faire une division entière en Perl?

Question

Quel est un bon moyen de toujours faire division entière en Perl?

Par exemple, je veux:

real/int = int 

int/real = int 

int/int = int 

Answer 1

Vous pouvez lancer ints en Perl:

int(5/1.5) = 3; 

Answer 2

Le lexicalement SCOPED integer pragma forces Perl pour utiliser l'arithmétique entier dans son champ d'application:

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) tournera positif valeurs vers l'entier le plus proche. Arrondir est plus difficile.

Pour arrondir vers zéro:

int($x)

Pour les solutions ci-dessous, comprennent la déclaration suivante:

use POSIX;

Pour arrondir vers le bas: POSIX::floor($x)

Pour arrondir: POSIX::ceil($x)

Pour arrondir loin de zéro: POSIX::floor($x) - int($x) + POSIX::ceil($x)

Pour arrondir au nombre entier le plus proche: POSIX::floor($x+.5)

Notez que int($x+.5) échoue mal pour les valeurs négatives. int(-2.1+.5) est int(-1.6), ce qui correspond à -1.

Answer 4

Exemples 9/4 = 2,25

int (9)/int (4) = 2

9/4 - reste/deniminator = 2

9/4 - 9% 4/4 = 2

Answer 5

espérons que cela fonctionne

int (9/4) = 2.

Merci Manoj Kumar

Answer 6

vous pouvez:

use integer; 

il est expliqué par Michael Ratanapintha ou bien utiliser manuellement:

$a=3.7; 
$b=2.1; 

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

avis, 'int' est pas coulée. C'est une fonction pour convertir un nombre en un nombre entier. C'est parce que Perl 5 n'a pas de division entière séparée. L'exception est lorsque vous utilisez 'entier'. Alors vous perdrez la vraie division.