generer des $q->td avec une boucle

Je me suis récemment lancé dans l'écriture d'un CGI en Perl. J'essaye de
générer plusieurs $q->td à l'aide d'une boucle foreach en prenant pour
base un hash mais je n'arrive pas à fermer correctement la série de
balises à la suite de $q->table :

%usersdb = (
user1 => {
domain => "schmurtz.net",
realname => "Toto Machin",
aliases => [ qw( toto tmachin ) ],
}
user2 => {
domain => "gulps.com",
realname => "Bidule Oups"
aliases => [ qw( bidule.oups b.oups ) ],
}
);

my($Domain, $RealName, $user, @Aliases);

print $q->table(
$q->Tr({-align => 'center', -valign => 'top'}, [
$q->th([ "Nom r&eacute;el", "Adresse principale", "Alias" ]); <-
ligne 54
foreach $user ( keys %usersdb ) {
$Domain = $usersdb{$user}{domain};
$RealName = $usersdb{$user}{realname};
@Aliases = @{ $usersdb{$user}{aliases} };
print $q->td([ $RealName, $user . "@" . $Domain, @Aliases ]);
}; ]), <- ligne 60
);

Si je fais ça perl me fait :
syntax error at ./cgi_test.pl line 54, near ");"
syntax error at ./cgi_test.pl line 60, near "; ]"

Si je change le ";" en "," à la ligne 54 ça me fait :
syntax error at ./cgi_test.pl line 55, near "foreach "

On 12 Apr 2005 09:03:46 GMT, Serge Basterot <sergeNOSP@Mblouk.net> wrote:

mais je n'arrive pas à fermer correctement la série de
balises à la suite de $q->table :

normal, foreach est une instruction de contrôle de flux, on ne peut pas la
mettre au milieu d'une liste. Ce qu'il te faut ici c'est un map:

J'ai pas essayé, mais ça devrait pas être très loin de la réalité.