#!/usr/bin/perl $metodo = $ENV{'REQUEST_METHOD'}; if ($metodo eq "POST") { $in=; $input = $in; } else { $input = $ENV{'QUERY_STRING'}; } @input = split(/&/,$input); foreach $i (0 .. $#input) { ($key,$value)=split(/=/,$input[$i],2); $key=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/%(..)/pack("c",hex($1))/ge; $value=~ s/\+/ /g; $entries{$key}=$value; } print "content-Type: text/html\n\n"; print " \n"; #print "

O input completo: $in\n"; print "

O input completo: $input\n"; print "

os pares nome=valor

\n"; print "

$key = $entries{$key}\n"; } print "

\n"; print "REQUEST_METHOD: $ENV{'REQUEST_METHOD'}
\n"; print "QUERY_STRING: $ENV{'QUERY_STRING'}
\n"; print " ";