Làm cách nào để đặt độ chính xác của dấu chấm động trong Perl?

Question

Có cách nào để thiết lập chính xác điểm nổi của tập lệnh Perl (thành 3 chữ số), mà không phải thay đổi nó cụ thể cho mỗi biến không?

Something tương tự như TCL:

global tcl_precision 
set tcl_precision 3 

Answer 1

Không có cách nào để thay đổi trên toàn cầu này.

Nếu chỉ dành cho mục đích hiển thị, hãy sử dụng sprintf("%.3f", $value);.

Cho mục đích toán học, sử dụng (int(($value * 1000.0) + 0.5)/1000.0). Điều này sẽ làm việc cho số dương. Bạn sẽ cần phải thay đổi nó để làm việc với số âm mặc dù.

Answer 2

Sử dụng Math::BigFloat hoặc bignum:

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

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

Hoặc với bignum thay vì làm:

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

Sau đó, trong cả hai trường hợp:

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

Answer 3

tôi sẽ không khuyên bạn nên sử dụng sprintf ("% .3f", $ value).

hãy nhìn vào ví dụ sau: (6,02 * 1,25 = 7,525)

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

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

Answer 4

Hãy đối xử với kết quả như là một chuỗi và sử dụng substr. Như thế này:

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

Nếu bạn muốn làm tròn, hãy làm như chuỗi quá. Chỉ cần có được nhân vật tiếp theo và quyết định.

Answer 5

Hoặc bạn có thể sử dụng sau đây để cắt xén bất cứ điều gì xảy ra sau khi các chữ số thứ ba sau dấu thập phân:

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