Arithmetic operations

[firebird]

I am trying to execute the following Arithmetic operation
$perdiff = ($diff/$initval) *100.0;
This gives me a wrong value of $perdiff. For example, if,
$diff = 0.000
$initval = 0.010
Then perl returns $perdiff = 1.3 .
Any ideas why this inconsistency?

-fb-

[Gunnar Hjalmarsson]

firebird wrote:

I am trying to execute the following Arithmetic operation
$perdiff = ($diff/$initval) *100.0;
This gives me a wrong value of $perdiff. For example, if,
$diff = 0.000
$initval = 0.010
Then perl returns $perdiff = 1.3 .

Please post the complete program that made you believe it does.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

[Roel van der Steen]

On Thu, 11 Mar 2004 at 16:18 GMT, firebird wrote:

I am trying to execute the following Arithmetic operation
$perdiff = ($diff/$initval) *100.0;
This gives me a wrong value of $perdiff. For example, if,
$diff = 0.000
$initval = 0.010
Then perl returns $perdiff = 1.3 .
Any ideas why this inconsistency?

-fb-

Really!? Are you sure!? I'm glad my system is not affected!

#/usr/bin/perl
use strict;
use warnings;

my $diff = 0.000;
my $initval = 0.010;
my $perdiff = ($diff/$initval) * 100.0;
print $perdiff;

# luckily prints 0 at my system.

PS: You are encouraged to use comp.lang.perl.misc instead of
this defunct group

[Jürgen Exner]

firebird wrote:

I am trying to execute the following Arithmetic operation
$perdiff = ($diff/$initval) *100.0;
This gives me a wrong value of $perdiff. For example, if,
$diff = 0.000
$initval = 0.010
Then perl returns $perdiff = 1.3 .
Any ideas why this inconsistency?

I cannot reproduce your problem:
C:\tmp>type t.pl
use strict;
use warnings;
my $diff = 0.000;
my $initval = 0.010;
my $perdiff = ($diff/$initval) *100.0;
print $perdiff;

C:\tmp>t
0
C:\tmp>

jue