我试图从十进制数中删除尾随零.
例如：如果输入的数字是0.0002340000,我希望输出为0.000234
我使用sprintf(“％g”,$number),但这大部分都有效,除非有时它将数字转换为带有E-的指数值.我怎样才能将它显示为完整的十进制数？
解决方法
数字没有尾随零.仅当您表示十进制数字(字符串)时,才会出现尾随零.所以第一步是将数字转换为字符串,如果它还没有.
my $s = sprintf("%.10f",$n);
(解决方案是假设使用OP的输入,他的输入似乎有10个小数位.如果你想要更多的数字出现,使用你想要出现的小数位数而不是10.我认为这是显而易见的.如果你想像@asjo一样荒谬,如果你想确保不丢失任何你没有失去的精度,那么对于双打使用324位小数.)
然后你可以删除尾随零.
$s =~ s/0+\z// if $s =~ /\./; $s =~ s/\.\z//;
要么
$s =~ s/\..*?\K0+\z//; $s =~ s/\.\z//;
要么
$s =~ s/\.(?:|.*[^0]\K)0*\z//;