🚀 go-pugleaf

hallo,


heb hier een probleempje met een perl/cgi scriptje. Hoe ik ook probeer, ik
krijg het maar niet aan de praat.
Ik krijg steeds de volgende foutboodschap:
use of uninitialized value at ticktest.pl line 29 (#1)
(w) An undefined value was used as if it were already defined. It was
interpreted as
a "" or as 0, but maybe it was a mistake. To suppress this warning assign an
initial value to your variable.

Ik ben nogal newbie en daardoor zie ik de fout dus niet echt staan in het
onderstaand script (alhoewel ik voel dat het misschien wel heel voor de hand
liggend is).
Ik gebruik perl en MySQL op een linux redhat 6.1.

bedankt alvast

Frank

www.franksite.net





#!/usr/bin/perl

use CGI;
use DBI;
use diagnostics;
use Data::Dumper;

$dbh = DBI->connect('dbi:mysql:test', 'root', 'anneleen');

$sql="SELECT * from ticklist";

$sth=$dbh->prepare($sql);
$sth->execute;
print <<"END";
Content-type:text/html\n\n

<html>
<head>
</head>
<body bgcolor="#FAEBD7">
END
while (@rows=$sth->fetchrow_array)
{
    print <<"END";
<p>testje</p>
END
for ($i=0; $i<=$#rows; $i++)
{
print "<h1>$rows[$i]</h1>"

}
print <<"END";
<p>test2</p>
END
}
print <<"END";
</body>
</html>
END
$dbh->disconnect;