need some help using strict??

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

.

Relevant Pages

  • Re: Can anyone program perl and fix a script?
    ... (Missing operator before packets?) ... Global symbol "$tmp" requires explicit package name at ./natview line 14. ...
    (alt.os.linux)
  • Use Strict Question
    ... Global symbol "$OrderFile" requires explicit package name at theta.pl ... Global symbol "$referer" requires explicit package name at theta.pl ... Global symbol "@odate" requires explicit package name at theta.pl line ...
    (perl.beginners)
  • Re: First Perl/CGI need critique on current code before further developement
    ... The errors in this script are _pervasive_. ... with future reserved word at webcounter.pl line 12. ... Global symbol "$slash" requires explicit package name at webcounter.pl line ...
    (comp.lang.perl.misc)
  • Re: Modify program to write just data to a text file.
    ... Global symbol "%DB" requires explicit package name at t.pl line 46. ... Bareword "BorOblig" not allowed while "strict subs" in use at t.pl line 26. ...
    (comp.lang.perl.misc)
  • Re: Lost here.. Use of uninitialized value in print?
    ... Global symbol "@files1to5" requires explicit package name at D:\My ... Global symbol "$list1" requires explicit package name at D:\My ... Global symbol "$selectitem" requires explicit package name at D:\My ...
    (perl.beginners)