Stuart Clark wrote:
>
> Hi,
Hello,
> I am trying to move the decimal point 2 places to the the left.
>
> Eg : To make 4536233 into 45362.33
>
> I tried this
> $total = "4536233";
> $total = sprintf("%0.2f",$total);
> print "$total";
> But I get this
> 4536233.00
>
> Can anyone help please
$ perl -le'
$total = 4536233; $total =~ s/(..)$/.$1/;
print $total;
$total = 4536233; substr $total, -2, 0, ".";
print $total;
'
45362.33
45362.33
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
