#Kein Kommentar+2008-04-09 15:21:43--

das du dein script erst mal so ändern solltest:

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#!/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;
}

[...]

Warum selbst den Content-type ausgeben, wenn sowieso schon CGI geladen wird? Einfach print CGI::header();

Warum das Parsen selbst machen? Einfach my %Frage = CGI::Vars();