$1 mit $schritte++; oder so

[Beat]

Nun will ich vom CGI Modul eine Liste aller Parameter,

um darüber iterieren zu können.

foreach my $par ( $cgi->param ){

Naja, dadurch verbaust du ihm aber die Möglichkeit seinen Input einfach zu bearbeiten.

my @tiere = $cgi->param('tiere');

....
print MAIL "@tiere";

>   
> Struppi.  
  
Ich gebe zu, der Zugang zu komplexeren Datenstrukturen ist nicht gerade für den Anfänger.  
Auf der anderen Seite erachte ich es als Designfehler, Input aus der gleichen Quelle in verschiedenen unverbundenen Variablen abzuspeichern, weil du sie nie mehr zusammen anfassen kannst.  
Auch sind Hashkeys prädestiniert, um Feldnamen zu speichern. Einen Feldnamen als variable im Programm hart zu kodieren macht das Programm unflexibel.  
  
Nachtrag, da sind noch einige Typos im Script  
foreach my $par ( $cgi->param ){ ... }  
  
my $par ist unnötig, da ich ja sowieso $\_ verwende  
  
   $cgi->param{$\_}  
sollte  
   $cgi->param($\_)  
heissen, wie ja alle Methodenzugriffe von der Form  
   object->method()  
sind.  
  
  
mfg Beat

-- 

><o(((°>           ><o(((°>  

   <°)))o><                     ><o(((°>o  
Der Valigator leibt diese Fische