Perl Post

[Guest - José Augusto -]

Caros amigos, tenho o codigo abaixo tirado de um livro, mas infelizmente não consigo rodar, é um codigo para processar formulario utilizando metodo post.

Grato José Augusto

#!perl

print "Content-type: text/html\n\n";

print "HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}<br>";

print "REQUEST_METHOD = $ENV{'REQUEST_METHOD'}<br>";

print "QUERY_STRING = $ENV{'QUERY_STRING'}<br>";

print "CONTENT_TYPE = $ENV{'CONTENT_TYPE'}<br>";

print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}<br>";

variable$qs = $ENV{'QUERY_STRING'};

character$qs = split(/&/,$qs);

$i (0 .. $#qs) {

$qs[$i] =~ s/\+/ /g;

$qs[$i] =~ s/%(..)/pack("c",hex($1))/ge;

($name, $value) = split(/=/,$qs[$i],2);

$qs{name} = $value;

}

print "Variables:<br><br>";

$name (sort keys(%qs));

{

print "$name = ", $qs{$name}, "\n"

}

exit;

[Graymalkin]

Não saco nada de Perl, mas você pode experimentar postar isso na sala correspondente: http://scriptbrasil.com.br/forum/index.php?showforum=3

Abraços,

Graymalkin