(i'm just using line 33 as a debugging line - it's really part of an SQL statment, but since i keep getting this error, although with a prior edit, it wasn't happening, and i'm not sure what i might have inadvertantly added or deleted
TIA for pointing out where i'm being stupid (and any other pointers would be greatly appreciated - i'm a part-time/hobbyist perl programmer - wish i had more time to learn perl properly!!).2 use strict; 3 use CGI qw/:standard :html3 :netscape/; 4 use Win32::ODBC; 5 use POSIX qw(strftime); 6 7 my $q = new CGI; 8 my ($mdy, $nomname, $nomemail, $nominst, $submitname, $submitemail, +$submitcat, $submitinst, $submitdiv, $mentor, $ptcare, $clinres, $com +ments); 9 10 my %in = map { $_ => $q->param($_) } $q->param; 11 for (keys %in) { 12 $in{$_} =~ s/'/''/g; 13 print "$_ = $in{$_}</p>"; 14 } 15 16 $mdy = strftime "%m/%d/%Y %H:%M:%S",localtime; 17 $nomname = $in{NOMNAME}; 18 $nomemail = $in{NOMEMAIL}; 19 $nominst = $in{NOMINST}; 20 $submitname = $in{SUBMITNAME}; 21 $submitemail = $in{SUBMITEMAIL}; 22 $submitcat = $in{SUBMITCAT}; 23 $submitinst = $in{SUBMITINST}; 24 $submitdiv = $in{SUBMITDIV}; 25 $mentor = $in{MENTOR}; 26 $ptcare = $in{PTCARE}; 27 $clinres = $in{CLINRES}; 28 $comments = $in{COMMENTS}; . . 33 print "('$mdy','$nomname','$nomemail','$nominst','$submitname','$su +bmitemail', '$submitcat','$submitinst','$submitdiv','$mentor','$ptcar +e','$clinres', '$comments')";
In reply to help with strict by jck
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |