¿Cómo puedo convertir entre notación científica y decimal en Perl?

Question

Sé que esta es una pregunta para novatos, pero la respuesta puede no ser obvia para muchos programadores nuevos. No fue inicialmente obvio para mí, así que busqué en Internet buscando módulos Perl para hacer esta simple tarea.

Answer 1

sprintf hace el truco

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

genera esta salida:

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

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

Answer 2

En un tema relacionado, si desea convertir entre la notación decimal y engineering notation (que es una versión de la notación científica) , el módulo Number::FormatEng de CPAN es útil:

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