Re: Formatting the decimals

[Adam]

Owen is dead on, but I think we can do that with less code. Try 
something like:

  printf ("%0.2f\n", $_) while (<>);

Regards,
Adam
On Jan 29, 2004, at 5:25 AM, Owen Cook wrote:
On Thu, 29 Jan 2004, Mallik wrote:

How do I format the decimals, i.e, if there is no
decimal part, then add .00, if there is one decimal,
then add '0'.
For eg., how to convert 123 to 123.00
and 123.5 to 123.50.
sprintf

Try this
-------------------------------------------------
#!/usr/bin/perl -w
while(<DATA>){
chomp;
$formatted = sprintf ("%0.2f",$_);
print "$formatted\n";
}
__DATA__
125
123.5
2
2.3456
34.6


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>