und Arrays ... Was ist falsch?

[Struppi]

Nungut. Ich hab also eine DB-Abfrage. Die läuft auch an und sollte mir am Ende ein paar Zeilen ausspucken. Mit fetchrow_array hol ich mir die Zeilen mit den 4 Spalten, um sie dann in einer Tabelle auszugeben. Die bleibt aber leer. Meine Hilfvariable (hab ich vorher mit 0 initialisiert) zählt brav die Anzahl der Ergebniszeilen mit und gibt mir am Ende die richtige Anzahl aus. Nur eben die Tabellenzeilen werden weder gefüllt noch angzeigt.

while (my ($date, $time, $host, $msgonly) = $sth->fetchrow_array){
        $hilfe++;
        $cgi->Tr(   $cgi->td($date),
                    $cgi->td($time),
                    $cgi->td($host),
                    $cgi->td($msgonly));
        };## end while

  
Du gibst auch nichts aus. Die Funktion aus CGI geben nur den Code zurück, print muss du noch dazu machen.  
  
Ich bevorzuge dabei aber die ganze Sache zu sammeln, dann läßt sich das übersichtlicher gestalten.  
  
~~~perl
  
my @rows;  
  
while (my ($date, $time, $host, $msgonly) = $sth->fetchrow_array){  
         $hilfe++;  
         push @rows, $cgi->td( [ $date, $time, $host, $msgonly] );  
};## end while  
  
print $cgi->table( $cgi->Tr( \@rows ) );  

[/code]

Sieht jemand den Fehler? Ich nämlich nicht.
Ein einfaches print $date etc. gibt mir übrigens die gewünschten Werte aus. Nur im $cgi->td($date); kommt nix.

Gruß,
Leeloo

Struppi.