Re: Padding with sprintf changing number

[haukex]

The number stored in $amount is likely to be something like 488714.9999999999 instead of 488715, and since Perl is unlikely to simply upconvert an integer of that size to a floating-point number on its own, it's likely that you're doing some kind of floating-point operations on the number that you haven't shown us. See What Every Programmer Should Know About Floating-Point Arithmetic.

The Perl Cookbook says "When Perl is told to print a floating-point number but not told the precision, it automatically rounds that number to however many decimal digits of precision that your machine supports." If you don't mind the performance hit, you could use bignum for precise calculations. If you don't mind the imprecision (which would not be advisable if this "amount" has anything to do with money), you could use the %016.0f as suggested by choroba. (Update: If all of the calculations you're doing deal only with integers, and in particular if you're ok with integer division, you could also consider integer. Update 2: The reply indicates that this is not an option in this case.)

[sachin raj aryan]

This was the operation i was doing it before padding

print " Checking amnt before conversion $amt,\n";
        $amt= sprintf("%.2f",$amt);
        print " Checking amnt after rounding $amt,\n";
        $amt = $amt*100;

[haukex]

4887.15 cannot be stored accurately as a floating-point number, which is may be is causing your issue. See my post above for more information.

[syphilis]

4887.15 cannot be stored accurately as a floating-point number, which is causing your issue.

Could it be that (at least part of) the problem is that the OP is expecting that sprint("%d", 488714.999) will return the string 488715 ?
It won't:

C:\>perl -le "print sprintf('%d', 488714.999);"
488714


Cheers,
Rob

[sachin raj aryan]

I am not sure how things changed please see my output 1348 4887.15 -----> this is the line i copy pasted no operation Checking amnt before conversion 4887.15, Checking amnt after rounding 4887.15, Checking amnt after conversion 488715, 488714 i m checking amount before padding, 0000000000488714 i m checking amount after padding, why it

print " Checking amnt before conversion $amt,\n";
        $amt= sprintf("%.2f",$amt);
        print " Checking amnt after rounding $amt,\n";
        $amt = $amt*100;
        print " Checking amnt after conversion $amt,\n";

sub amnt($amn)
{
my $amount=$_[0];
$amount=int($amount);
say  "$amount i m checking amount before padding,\n";
#my $padamnt = sprintf("%016.0f",$amount);---> currently commented to 
+check integer effect.
my $padamnt = sprintf("%016d",$amount);

say  "$padamnt i m checking amount after padding,\n";
 return $padamnt;
}

[syphilis]

I've rewritten your code into a form that I think makes at least some sense:

use strict;
use warnings;

my $amt = 4887.15;

print " Checking amnt before conversion $amt,\n";
        $amt= sprintf("%.2f",$amt);
        print " Checking amnt after rounding $amt,\n";
        $amt = $amt*100;
        print " Checking amnt after conversion $amt,\n";
        printf "Checking the EXACT value of amnt: %.17g\n", $amt;

amnt($amt);

sub amnt
{
my $amount=$_[0];
$amount=int($amount);
print  "$amount i m checking amount before padding,\n";
#my $padamnt = sprintf("%016.0f",$amount);---> currently commented to 
+check integer effect.
my $padamnt = sprintf("%016d",$amount);

print  "$padamnt i m checking amount after padding,\n";
 return $padamnt;
}

When I run that script, I get:

 Checking amnt before conversion 4887.15,
 Checking amnt after rounding 4887.15,
 Checking amnt after conversion 488715,
Checking the EXACT value of amnt: 488714.99999999994
488714 i m checking amount before padding,
0000000000488714 i m checking amount after padding,

Note that I've added a line of code that demonstrates that the EXACT value of $amt is NOT 488715.
Perl's print() function frequently fails to produce an accurate representation of floating point values - and that's what is happening here.

That output I'm seeing is as I expect.
Which is the line of output that you don't understand ?

You need to stay alert to this aspect of perl's print() function.
Neither python3 nor raku are afflicted with such a poorly designed implementation:

$ python3 -c "print(4887.15 * 100)"
488714.99999999994

$ raku -e "say 4887.15e0 * 100"
488714.99999999994



Cheers,
Rob

[choroba]

> Neither python3 nor raku

But

$ python2 -c 'print(4887.15 * 100)'
488715.0