Jak rozbalit promene poslane metodou get

[Pavel Reznicek]

> Zdravim vsechny. Nevite jak dostat vsechny promene poslane metodou post do
> promenych. Jednoduse posle to dokument.cgi?promena=test a ja potrebuju, aby
> se mi v dokumentu nadefinovalo $promena=test . Takze bych kod mel vypadat
> takto:
> 
> funkce;
> echo $promena;

neni to moc elegantni reseni, ale funguje presne :-)

#!/usr/bin/perl

read(STDIN, $parametr, $ENV{'CONTENT_LENGTH'});
($retez)=($parametr=~/promena=([^&]*)/);
$retez =~ s/\+/ /g;
$retez =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;

print "Content-type: text/html", "\n\n";
print "$retez<BR>\n";

exit(0);


// neodladeno, ale patrne spravne..
jinak doprucuji pouzit modul CGI
BTW : promenna

					./S