Come si imposta la precisione in virgola mobile in Perl?

Question

C'è un modo per impostare la precisione in virgola mobile dello script Perl (su 3 cifre), senza doverla modificare in modo specifico per ogni variabile?

Qualcosa di simile a TCL di:

global tcl_precision 
set tcl_precision 3 

Answer 1

Non v'è alcun modo per modificare globalmente questo.

Se è solo per scopi di visualizzazione, utilizzare sprintf("%.3f", $value);.

Per scopi matematici, utilizzare (int(($value * 1000.0) + 0.5)/1000.0). Questo funzionerebbe per numeri positivi. Avresti bisogno di cambiarlo per funzionare con numeri negativi però.

Answer 2

Usa Math::BigFloat o bignum:

use Math::BigFloat; 
Math::BigFloat->precision(-3); 

my $x = Math::BigFloat->new(1.123566); 
my $y = Math::BigFloat->new(3.333333); 

O con bignum invece fanno:

use bignum (p => -3); 
my $x = 1.123566; 
my $y = 3.333333; 

Poi, in entrambi i casi:

say $x;  # => 1.124 
say $y;  # => 3.333 
say $x + $y; # => 4.457 

Answer 3

non consiglierei di usare sprintf ("% .3f", valore $).

Si prega di guardare il seguente esempio: (6,02 * 1,25 = 7,525)

printf("%.2f", 6.02 * 1.25) = 7.52

printf("%.2f", 7.525) = 7.53

Answer 4

Trattare il risultato come una stringa e utilizzare substr. In questo modo:

$result = substr($result,0,3); 

Se si desidera eseguire l'arrotondamento, farlo anche come stringa. Prendi il prossimo personaggio e decidi.

Answer 5

Oppure si potrebbe utilizzare il seguente per troncare ciò che viene dopo la terza cifra dopo la virgola:

if ($val =~ m/([-]?[\d]*\.[\d]{3})/) { 
    $val = $1; 
}