Comment puis-je convertir entre la notation scientifique et décimale en Perl?

Question

Je sais que c'est une question de débutant total, mais la réponse peut ne pas être évidente pour beaucoup de nouveaux programmeurs. Ce n'était pas évident pour moi au début, donc j'ai parcouru Internet à la recherche de modules Perl pour faire cette tâche simple.

Answer 1

sprintf le tour est joué

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"; 

génère cette sortie:

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

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

Answer 2

Sur un thème connexe, si vous voulez convertir entre la notation décimale et engineering notation (qui est une version de la notation scientifique) , le module Number::FormatEng du CPAN est pratique:

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