
Demerzel
Novice
Dec 20, 2012, 6:44 AM
Post #1 of 9
(4652 views)
|
modulo in PERl vs PHP
|
Can't Post
|
|
I have two pices of code in PERL:
my $cc = '2521'; my $format = '%0'.(24 - $acclen) .'d'; print "format:".$format."\n"; $account .= sprintf($format, $row->{'id'}); my $numer=$account.$cc.'00'; print " ".$numer."="; print "modulo:".($numer% 97);die(); $account= sprintf('%02d', 98-($numer% 97)).$account; print "konto:".$account; and PHP:
$cc = '2521'; // Kod kraju - Polska $format = '%0'.(24 - $acclen) .'d'; print $format; $account .= sprintf($format, $id); print " ".$account.$cc.'00'."=".bcmod($account.$cc.'00', 97); return sprintf('%02d', 98-bcmod($account.$cc.'00', 97)).$account; $account.$cc. and $account.$cc.'00' are equal but ($numer% 97) and bcmod($account.$cc.'00', 97) are different. Any idea why?
|