Tabelle dynamisch mit perl ausgeben?

[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.