need some help using strict??

Fri, 27 Apr 2007 16:57:39 -0700

I am trying to verify a credit card number format with the following: (below) but I am getting errors like:
Global symbol "%r" requires explicit package name at ./modmember.cgi line 681. Global symbol "%r" requires explicit package name at ./modmember.cgi line 683. Global symbol "%r" requires explicit package name at ./modmember.cgi line 688. Global symbol "%r" requires explicit package name at ./modmember.cgi line 688. Global symbol "%r" requires explicit package name at ./modmember.cgi line 688. Global symbol "$r2" requires explicit package name at ./modmember.cgi line 689. Global symbol "%r" requires explicit package name at ./modmember.cgi line 689. Global symbol "$r2" requires explicit package name at ./modmember.cgi line 691. Global symbol "$r2" requires explicit package name at ./modmember.cgi line 691. 




       my $r = reverse $ccnumber;               #line 678...
       for my $i(0 .. 15) {
       if ($i % 2 != 0) {
       $r{$i} = 2 * substr($r,$i,1);                #line 681
       }else {
       $r{$i} = substr($r,$i,1);                       #line 683
       }
       }

       for my $i(0 .. 15) {
       if ($r{$i}> 9){$r{$i}=$r{$i}-9}            # line 688
       my $r2 = $r2 + $r{$i};                           # line 689
       }
       if ($r2 == 0 || $r2 % 10 != 0) {                #line 691

              $page .= p ("Error: Credit Card Number is not correct. 
Please check.")

                                      . editing_form ();
              return ($page);
               }


I marked the lines.  This works without strict.  Any Ideas?


Ryan 



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
























					Reply via email to