Tabelle dynamisch mit perl ausgeben?

[Timo Krokowski]

Hallo,

ich wollte gerne eine Tabelle dynamisch mit perl ausgeben...

print $cgi->p($cgi->table(while($i<$Anzahl){
                    i++,
                    $cgi->Tr($cgi->td('hallo ',$i))}));

Das ganze funktioniert ohne die while Schleife einwandfrei, kann ich etwa keine Schleifen in Funktionen(Tr) aufrufen? weiß nicht mehr weiter!

Bitte helft mir!

[Andres Freund]

Hi,

print $cgi->p($cgi->table(while($i<$Anzahl){
                    i++,
                    $cgi->Tr($cgi->td('hallo ',$i))}));

Das ganze funktioniert ohne die while Schleife einwandfrei, kann ich etwa keine Schleifen in Funktionen(Tr) aufrufen? weiß nicht mehr weiter!

Es geht zwar, allerdings nur über üble Tricks, und ist absolut nicht zu empfehlen. Ich sehe aber vor allem in diesem Fall keine Notwendigkeit das zu tun. Wieso splitteste du das ganze nicht einfach in mehrere prints auf? Oder stellst den Inhalt einfach in eine temporäre Variable?

Grüße Andres Freund

[Struppi]

print $cgi->p($cgi->table(while($i<$Anzahl){
                    i++,
                    $cgi->Tr($cgi->td('hallo ',$i))}));

Das ganze funktioniert ohne die while Schleife einwandfrei, kann ich etwa keine Schleifen in Funktionen(Tr) aufrufen? weiß nicht mehr weiter!

Du musst einfach ein Array zusammen bauen:

use CGI;
use strict;

my @zeilen;
my $i = 0;

while($i < 3){
  push @zeilen, 'hallo ', $i;
$i++;
}

print CGI::table( CGI::Tr( CGI::td(@zeilen)) ) ;

Struppi.