Perl division by zero - need infinity

Question

Есть ли способы получить inf или -inf от eval {1/0}, eval {1/-0} вместо Illegal division by zero исключение?

Answer 1

Если вас use bignum, вы получите inf из 1/0:

use bignum; 
print 1/0; # produces "inf" 

1/-0 еще inf (я предполагаю, что это потому, что -0 == 0).

См. http://perldoc.perl.org/bignum.html.

Answer 2

Из коробки? Нет, потому что это неправильный ответ. Подразделение на ноль - не определено не бесконечно.

Вы могли бы использовать что-то вроде //, чтобы проверить, если результат вашей eval не определено:

my $result = eval { 1/0 } // 'inf'; 
print $result; 

И установлено, что способ по умолчанию. (Хотя в приведенном выше примере, 'inf' является строкой, числовое значение может быть более полезным). Существует набор библиотек математики, которые дают вам константы inf, такие как bignumbigratbigint. Однако переносимость может быть проблемой.

Answer 3

Что вам действительно нужно Data::Float:

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Carp qw(croak); 
use Data::Float qw(have_infinite pos_infinity neg_infinity float_is_infinite); 

have_infinite() or croak "No support for infinite float values"; 

my $v = -1; 
my $x = 1; 
my $y = 0; 

my $z = eval { $x/$y }; 
unless (defined $z) { 
    $z = ($x >= 0) ? pos_infinity : neg_infinity; 
} 

print "$z\n"; 

$z = eval { $v/$y }; 
unless (defined $z) { 
    $z = ($v >= 0) ? pos_infinity : neg_infinity; 
} 

print "$z\n"; 

Выход:

$ ./inf.pl 
Inf 
-Inf

Конечно, если вы используете 5.10 или более поздней версии, вы можете сделать:

my $z = eval { $x/$y }; 
$z //= ($x >= 0) ? pos_infinity : neg_infinity; 

print "$z\n"; 

$z = eval { $v/$y }; 
$z //= ($v >= 0) ? pos_infinity : neg_infinity; 

print "$z\n";