AndrewG
stranger
May 21, 2002, 1:28 PM
Post #1 of 2
(294 views)
|
|
Need help converting Java to Perl
|
Can't Post
|
|
Greetings,
I'm trying to convert the following Java script to Perl.
function ccc18(form) {
factor = 3;
sum = 0;
for (index = form.numero.value.length; index > 0; --index) {
sum = sum + form.numero.value.substring (index-1, index) * factor;
factor = 4 - factor;
}
cc = ((1000 - sum) % 10);
form.cc.value = cc
if (form.numero.value.length!=17){
alert("Invalid # please contact Customer Service for assistance at 937-435-3870")
form.cc.value = "";
}
}
#!/usr/local/bin/perl
$factor = "3";
$sum = "0";
$value = "00053329000000748";
for ($index = 17; $index > 0; $index--) {
$sum = $sum + $value * $factor;
$factor = 4 - $factor;
}
$cc = ((1000 - $sum) % 10);
print $cc;
I am having a problem when I try to get (index-1, index) to work. The output of the perl script should be 9.
You can see an example of the working java script here.
http://www.uc-council.org/checkdig.htm (SSCC)
TIA 
Andrew
|
MAIN
SEARCH
WHO'S 
LOG 
