Ir para conteúdo
Fórum Script Brasil
  • 0

Perl Post


Guest - José Augusto -

Pergunta

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;

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...