Ich möchte in einem Perl-Script alle Feldnamen/Werte-Paare eines Formulars einer Hash-Liste zuweisen.
Hier der Ausschnitt (leicht modifiziertes Script aus einem SELFHTML-Beispiel):
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
@Formularfelder=split(/&/, $Daten);
%Formular=("Feldname","Wert");
foreach $Feld (@Formularfelder)
{
($name, $value)=split(/=/, $Feld);
$value=~ tr/+/ /;
$value=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~ s/<!--(.|\n)*-->//g;
#$Formular{$name}=$name;
#$Formular{$value}=$value;
push(%Formular, $name, $value);
}
Und so will ich dann die Werte abfragen:
print "<td> $Formular{'Wunschtermin'} </td>\n";
Der Web-Server meldet, dass die push-Methode für Hashs nicht erlaubt ist. Wie füge ich dann die Formularfelder an die Hash-Liste an ???