Salut bt707,
Tout d'abord, je proposerais que vous ne tracassiez pas avec créer le HTML s'étiquette mais emploie à la place le CGI.pm très standard (
http://perldoc.perl.org/CGI.html). Il garantira que vous produisez toujours le HTML bien formé.
Re : vos erreurs « absentes », de ce que vous avez besoin est rassemblent toutes les erreurs dans une rangée :
si (eq de $in {courrier} '') {poussée (@missing, « le besoin d'écrire un valide \ un « email address \ "")}
si (eq de $in {directeur} '') {poussée (@missing, « le besoin d'écrire un valide \ un « directeur \ » (directeur) ")}
si (eq de $in {c} '') {poussée (@missing, « le besoin pour écrire un valide \ un « pays \ » un (c) et \ « ville \ » (l) « )}
Et les imprimer alors tous using n'importe quoi de pareil :
mon $errorHtml = se joignent ("", la carte {«
$_« } @missing) ;
et remplacer le votre
$missingavec $errorHtml
Bonne chance !