🚀 go-pugleaf

Franky Claeys wrote in message <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
>
>
>
>
>
1 >#!/usr/bin/perl

Zet even -w achter perl

en voeg use strict; toe

2 >use CGI;
3>use DBI;
4>use diagnostics;
5>use Data::Dumper;
6>
7>$dbh = DBI->connect('dbi:mysql:test', 'root', 'anneleen');
8>
9>$sql="SELECT * from ticklist";
10>
11>$sth=$dbh->prepare($sql);
12>$sth->execute;
13>print <<"END";
14>Content-type:text/html\n\n
15>
16><html>
17><head>

Geen title?

18></head>
19><body bgcolor="#FAEBD7">

Als je de bgcolor aanpast, zet dan ook de andere kleuren.

20>END
21>while (@rows=$sth->fetchrow_array)
22>{
23>    print <<"END";
24><p>testje</p>
25>END
26>for ($i=0; $i<=$#rows; $i++)

Je krijgt deze fout omdat de @rows = $sth->fetchrow_array
best wel eens undef had kunnen geven... (geen rijen).

korter:

print map { "<H1>$_</H1>\n } @rows;

Mocht dat dezelfde fout geven, doe dan:

print map { als boven } @rows if @rows;

[snip]

John

--
Castle Amber - Software Development
Perl / Java / C / C++ developer *available*
email john@castleamber.co.nz for more info
or visit http://castleamber.co.nz/