adding a decimal point. 1

[cb49747]

I have a number 171500 It should be 1715.00 I have tried using this

   $field3 = sprintf("%.2f",$field3);

but it gives me this 171500.00

How do I add the decimal in the proper place?

 

[ishnid]

Divide by 100.

 

[cb49747]

That is what I have been doing. But was wondering if there was an easier way.

 

[Kirsle]

Dividing by 100 is probably the best way.

Alternatively,

[kirsle@firefly ~]$ perl
my $number = 171500;
print "Before: $number\n";
$number =~ s/(\d\d)$/.$1/;
print "After: $number\n";
__END__
Before: 171500
After: 1715.00

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[KevinADC]

$field3 = 171500;
$field3 = sprintf("%.2f",$field3/100);
print $field3;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[ishnid]

Or:

substr( $field3, length( $field3 ) - 2, 0, '.' );

 

[ChrisHunt]

But was wondering if there was an easier way.

Easier than [tt]$field3 /= 100;[/tt]? What do find difficult about that?

-- Chris Hunt
Webmaster & Tragedian
Extra Connections Ltd

 

[cb49747]

This is exactly what I was looking for.

$field3 = sprintf("%.2f",$field3/100);

I wanted to do it in one command rather than two.

Thanks

KevinADC