Formatting numbers

EchoAngel has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Formatting numbers by Joost (Canon) on Jul 20, 2004 at 17:56 UTC
Your problem comes from the fact that you assign "1.25000000" as a string value somewhere. Either use a numeric literal: `my $var = 1.25000000; print $var;` [download] or force numeric context in your print: `my $var = "1.25000000"; print $var + 0;` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re: Formatting numbers by davido (Cardinal) on Jul 20, 2004 at 17:54 UTC
You could use a RE, which may not be the best approach. But here it is anyway, and it seems to work great. :) `use strict; use warnings; while ( <DATA> ) { chomp; print "$_ => "; s/(?<=\.)(.+?)0+$/$1/; print "$_\n"; } __DATA__ 1.25000000 4.60 8.0990010000 25` [download] Much ado about nothing though, strings can be numified just by using them as numbers. Dave	[reply] [d/l]