Как я должен делать целочисленное деление в Perl?

Question

Что такое хороший способ для всегда делать целое подразделение в Perl?

Например, я хочу:

real/int = int 

int/real = int 

int/int = int 

Answer 1

Вы можете бросить Интс в Perl:

int(5/1.5) = 3; 

Answer 2

лексически область действия integer pragma силы Perl использовать целочисленную арифметику в объеме:

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) раунд положительный значений в направлении ближайшего целого числа. Округление сложнее.

Чтобы закруглить к нулю:

int($x)

Для решений, приведенных ниже, включают в себя следующее заявление:

use POSIX;

округлить: POSIX::floor($x)

Чтобы округлить: POSIX::ceil($x)

Чтобы закруглить от нуля: POSIX::floor($x) - int($x) + POSIX::ceil($x)

Чтобы округлить до ближайшего целого числа: POSIX::floor($x+.5)

Обратите внимание, что int($x+.5) не удается плохо для отрицательных значений. int(-2.1+.5) - int(-1.6), который равен -1.

Answer 4

Например 9/4 = 2,25

INT (9)/Int (4) = 2

9/4 - остальное/deniminator = 2

9/4 - 9% 4/4 = 2

Answer 5

Надеется, что это работает

Int (9/4) = 2.

Благодаря Manojkumar

Answer 6

вы можете:

use integer; 

это объясняется Майкл Ratanapintha или же использовать вручную:

$a=3.7; 
$b=2.1; 

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

уведомление, 'INT' не литьем. это функция преобразования числа в целочисленную форму. это потому, что Perl 5 не имеет отдельного целочисленного деления. Исключение - когда вы используете целое число. Тогда вы потеряете реальное разделение.