Hi,
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
@Fields = split(/&/, $Daten);
foreach $item (@Fields) {
($name, $value) = split(/=/, $item);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.\n)*-->//g;
$FormData{$name} = $value;
(hier gehe ich von post aus)
Das geht aber viel besser mit der parameter Methode von
CGI.pm von L.D.Stein (siehe CPAN)
oh, wirklich? Was ist denn mit
- GET,
- HTML-Kommentaren in den Daten (die sind nämlich durchaus erlaubt),
- <select multiple>?
Würdest Du CGI.pm benutzen, hättest Du damit keine Probleme. Obiger Code versagt hingegen.
Cheatah