Question

i have a problem with a scripts below and How to make multification results equals to 1332521814089765.

#!/usr/bin/perl

my $divide = 1332521814089765/1332521809;
my $results1 = int $divide;
print "After Divide: $results1 \n";

my $multiplication = $results1*1332521809;
my $results2 = $multiplication;
print "After Multiplication: $results2 \n"; #How to make multification results equals to 1332521814089765 

after searching and make a test here the results but still not get my expected results

my $divide = 1332521814089765/1332521809;
my $multiplication = $divide*1332521809;
my $results = $multiplication/10;
print "My     Results: $results\nExpect Results: 1332521814089765\n";

Answer 1

1000000 * 1332521809 is equal to 1332521809000000. Why would you expect 1332521814089765?

Maybe you are multiplying the wrong numbers, which is to say you meant to use

 my $multiplication = $divide*1332521809;

instead of

 my $multiplication = $results1*1332521809;

---

Another possibility is that you are trying to find the inverse function of

$y = int($x/$k)

Unfortunately, there is none because there are multiple values of $x that give the same $y.

int(1332521809000000/1332521809) = 1000000
...
int(1332521814089764/1332521809) = 1000000
int(1332521814089765/1332521809) = 1000000
int(1332521814089766/1332521809) = 1000000
...
int(1332523141521808/1332521809) = 1000000