Please help to extract the decimal portion

[Tharma]

Hi

I wanted to extract the decimal portion from a number. I tried the following
code but I didn't get the exact decimal portion.
If anyone know how to extract please let me know.


$num = 1234.56;
$decimal = ($num - int($num));
print $decimal;

Here I get 0.559999999999945 instead of 0.56. Why and How can I correct it?.

 

[Jürgen Exner]

I wanted to extract the decimal portion from a number. I tried the
following code but I didn't get the exact decimal portion.
If anyone know how to extract please let me know.


$num = 1234.56;
$decimal = ($num - int($num));
print $decimal;

Here I get 0.559999999999945 instead of 0.56. Why and How can I
correct it?.

"Thou shalt not use floating point numbers when accurate results are needed"
You must have missed the introduction into computer numerics, for further
details see "perldoc -q 999".

One way may be to just treat the number as text (untested):
$decimal = 1234.56;
$decimal =~ s/.*\.//;
print $decimal;

jue

 

[Tharma]

thanks.

"Thou shalt not use floating point numbers when accurate results are needed"
You must have missed the introduction into computer numerics, for further
details see "perldoc -q 999".

One way may be to just treat the number as text (untested):
$decimal = 1234.56;
$decimal =~ s/.*\.//;
print $decimal;

jue

 

[magoo]

use "sprintf" like so...

$decimal = sprintf("%.2f", ($num - int($num));

magoo

(e-mail address removed) says...

 

[magoo]

Better add one more ")" on the end there! ;>)

use "sprintf" like so...

$decimal = sprintf("%.2f", ($num - int($num));

magoo

(e-mail address removed) says...

 

[Skeleton Man]

I wanted to extract the decimal portion from a number. I tried the
following

code but I didn't get the exact decimal portion.
If anyone know how to extract please let me know.

$num = 1234.56;
$decimal = ($num - int($num));
print $decimal;

Try this:

$num = 1234.56;
print '.'.@{[split(/\./,$num)]}[1];


Regards,
Chris