Làm cách nào để chuyển đổi giữa ký hiệu khoa học và thập phân trong Perl?

Question

Tôi biết đây là câu hỏi về tổng số người mới, nhưng câu trả lời có thể không hiển nhiên đối với nhiều lập trình viên mới. Ban đầu nó không rõ ràng với tôi vì vậy tôi đã lùng sục Internet tìm kiếm các mô-đun Perl để thực hiện nhiệm vụ đơn giản này.

Answer 1

sprintf hiện các trick

use strict; 
use warnings; 

my $decimal_notation = 10/3; 
my $scientific_notation = sprintf("%e", $decimal_notation); 

print "Decimal ($decimal_notation) to scientific ($scientific_notation)\n\n"; 

$scientific_notation = "1.23456789e+001"; 
$decimal_notation = sprintf("%.10g", $scientific_notation); 

print "Scientific ($scientific_notation) to decimal ($decimal_notation)\n\n"; 

tạo ra sản lượng này:

Decimal (3.33333333333333) to scientific (3.333333e+000) 

Scientific (1.23456789e+001) to decimal (12.3456789) 

Answer 2

Trên một chủ đề có liên quan, nếu bạn muốn chuyển đổi giữa ký hiệu thập phân và engineering notation (mà là một phiên bản của ký hiệu khoa học) , mô-đun Number::FormatEng từ CPAN tiện dụng:

use Number::FormatEng qw(:all); 
print format_eng(1234);  # prints 1.234e3 
print format_pref(-0.035); # prints -35m 
unformat_pref('1.23T');  # returns 1.23e+12