#!/usr/bin/perl use strict; use CGI; print "Content-type: text/html\n\n"; my ($frage); if ($ENV{'REQUEST_METHOD'} eq "GET"){ $frage=$ENV{'QUERY_STRING'}; }elsif ($ENV{'REQUEST_METHOD'} eq "POST"){ read (STDIN,$frage,$ENV{'CONTENT_LENGTH'}); } my @frage = split /&/,$frage; my %Frage; foreach my $i(0..$#frage){ $frage[$i]=~s/\+/ /g; my ($key,$value) = split /=/,$frage[$i],2; $key=~s/%(..)/pack("c",hex($1))/ge; $value=~s/%(..)/pack("c",hex($1))/ge; $key=~s/\n/ /g; $value=~s/\n/ /g; $key=~s/\"/ /g; $value=~s/\"/ /g; $Frage{$key}=$value; } [...]