Cgi - UserData

[Frank Schönmann]

hi!

Ich finde deine Methode immer noch viel zu umständlich.

if ($ENV{'REQUEST_METHOD'} eq "GET") { $EnvDaten = $ENV{'QUERY_STRING'}; }
  else { read STDIN, $EnvDaten, $ENV{'CONTENT_LENGTH'}; }
for (split /&/, $EnvDaten)
{
  tr/+/ /;
  s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
  ($key, $value) = split /=/;
  $data{$key} = $value;
}

bye, Frank!