Can any one point me in the right direction with this script I dont understand the message I am getting I must have dons something realy wrong but dont have a clue what it is. I have slightly edited the error message as it repeated for about 9 inches at least! Line 12 is SELECT * FROM Area and that is correct and gives me the table and info I need when run in SQL prompt.
print "Content-Type: text/html\n\n";
use CGI ":standard";
use CGI::Carp qw(fatalsToBrowser);
my $Code=param("Code");
my $Name=param("Name");
my $Hight=param("Hight");
use DBI;
my $DBH = DBI->connect("DBI:mysql:Guide")or die "\n ($DBI::err): $DBI::errstr\n";
my $query = $DBH->prepare(qq{SELECT * FROM Area});
$query->execute()or die "\n ($DBI::err) : $DBI::errstr\n";
print qq~
<HTML><HEAD><TITLE>Areas</TITLE>
<BASEFONT FACE="Comic Sans MS, fantasy">
<HEAD>
<BODY BGCOLOR = "99CCFF" TEXT="330066" SIZE="5">
<TABLE ALIGN="center"> <CAPTION><H2>Here are your results <H2></CAPTION>
<TBODY><TR BGCOLOR="00ffff" TEXT="330066">
<TH>Code</TH>
<TH>Name</TH>
<TH>Length</TH>
<TD align ="center">$Code</TD>
<TD align ="center">$Name</TD>
<TD align ="center">$Hight</TD>
</TR>
while (@row = $query->fetchrow_array)
{
($Area) = @row;
print "<TD align ="center">$Code</TD>
<TD align ="center">$Name</TD>
<TD align ="center">$Hight</TD>
</TR>\n";
}
{
my ($Area) = @$row;
print $Code $Name $Hight" $\n";
}
$query->finish()or die "\n ($DBI::err) : $DBI::errstr\n";
$DBH->disconnect();
</TBODY>
</TABLE>
</BODY>
</HTML>~;
C:\Program Files\Apache Group\Apache2\cgi-bin>area_guide.pl [Tue Jan 20 10:09:03 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Possible unintended interpolation of @row in string at C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl line 12. Content-Type: text/html [Tue Jan 20 10:09:03 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Use of uninitialized value in concatenation (.) or string at C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl line 12.
</TR> while ( = DBI::st=HASH(0x1a3ca70)->fetchrow_array) { () = ; print "<TD align ="center"></TD> <TD align ="center"></TD> <TD align ="center"></TD> </TR> "; } { my () = ; print " n"; } DBI::st=HASH(0x1a3ca70)->finish()or die " () : "; DBI::db=HASH(0x1a3c980)->disconnect(); </TBODY> </TABLE> </BODY> </HTML>[Tue Jan 20 10:09:05 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Database handle destroyed without explicit disconnect.
Code:
#!c:\perl\bin\perl.exe -w print "Content-Type: text/html\n\n";
use CGI ":standard";
use CGI::Carp qw(fatalsToBrowser);
my $Code=param("Code");
my $Name=param("Name");
my $Hight=param("Hight");
use DBI;
my $DBH = DBI->connect("DBI:mysql:Guide")or die "\n ($DBI::err): $DBI::errstr\n";
my $query = $DBH->prepare(qq{SELECT * FROM Area});
$query->execute()or die "\n ($DBI::err) : $DBI::errstr\n";
print qq~
<HTML><HEAD><TITLE>Areas</TITLE>
<BASEFONT FACE="Comic Sans MS, fantasy">
<HEAD>
<BODY BGCOLOR = "99CCFF" TEXT="330066" SIZE="5">
<TABLE ALIGN="center"> <CAPTION><H2>Here are your results <H2></CAPTION>
<TBODY><TR BGCOLOR="00ffff" TEXT="330066">
<TH>Code</TH>
<TH>Name</TH>
<TH>Length</TH>
<TD align ="center">$Code</TD>
<TD align ="center">$Name</TD>
<TD align ="center">$Hight</TD>
</TR>
while (@row = $query->fetchrow_array)
{
($Area) = @row;
print "<TD align ="center">$Code</TD>
<TD align ="center">$Name</TD>
<TD align ="center">$Hight</TD>
</TR>\n";
}
{
my ($Area) = @$row;
print $Code $Name $Hight" $\n";
}
$query->finish()or die "\n ($DBI::err) : $DBI::errstr\n";
$DBH->disconnect();
</TBODY>
</TABLE>
</BODY>
</HTML>~;
C:\Program Files\Apache Group\Apache2\cgi-bin>area_guide.pl [Tue Jan 20 10:09:03 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Possible unintended interpolation of @row in string at C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl line 12. Content-Type: text/html [Tue Jan 20 10:09:03 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Use of uninitialized value in concatenation (.) or string at C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl line 12.
</TR> while ( = DBI::st=HASH(0x1a3ca70)->fetchrow_array) { () = ; print "<TD align ="center"></TD> <TD align ="center"></TD> <TD align ="center"></TD> </TR> "; } { my () = ; print " n"; } DBI::st=HASH(0x1a3ca70)->finish()or die " () : "; DBI::db=HASH(0x1a3c980)->disconnect(); </TBODY> </TABLE> </BODY> </HTML>[Tue Jan 20 10:09:05 2004] C:\Program Files\Apache Group\Apache2\cgi-bin\area_guide.pl: Database handle destroyed without explicit disconnect.