🚀 go-pugleaf

leuk password, anneleen :)

Franky Claeys <franky.claeys@vt4.net> wrote in message
news:99fsr9$6np$1@mykenos.hogent.be...
> 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;
>
>
>