GhP
-
Total de itens
46 -
Registro em
-
Última visita
Sobre GhP
- Data de Nascimento 13/12/1985
GhP's Achievements
0
Reputação
-
primeiro Instale o ActivePerl ele sera instalado no c:/perl recomendo instalar em c:/usr você acha o activeperl em www.activestate.com apos instalar basta apenas rodar o seguinte codigo #!perl print "Content-type: text/html\n\n"; print "CGI FUnfou"; ou #!c:/usr/bin/perl print "Content-type: text/html\n\n"; print "CGI FUnfou"; abraços
-
Bem pessoal Esse é meu site de portofolio pessoal e gostaria de saber a opnião de vocês www.ghpnet.com.br e no mesmo, tem alguns links de outros prohjetos meus, gostaria de saber a opnião de todos!! desde já agradeço abraços!
-
Bom pessoal, to deixando ai meu site para vocês avaliarem sugestão, reclamação, criticas, são bem vindas www.wmclube.com.br abraços
-
use o formmail abraços
-
tente tirar o "&" da função e teste abraços
-
por favor,m não poste 2 msgs iguais grato
-
amigo olhe esse site www.cgiclube.net ai tem um tutorial de como dar chmod em ws_ftp abraços
-
ichi cara numa meche com esse tipo de função mais tenta fazer ferificação dividindo os campos com split ai você faz $porta_escolhida==$porta_resposta sacou? abraços
-
posta o fonte ai para nois abraços
-
tente isso #!/usr/local/bin/perl $_=1; print "Content-type: text/html\n"; print "Pragma: no-cache\n"; print "Cache-Control: no-store\n"; print "Expires: 1\n\n"; $entrada = ($ENV{REQUEST_METHOD} =~ /POST/i)? <STDIN>: $ENV{QUERY_STRING}; foreach $associacao (split "&", $entrada){ ($nome, $valor) = split "=", $associaca; $parametro{$nome} = valor; } if ($parametro{funcao} eq "cadastrar"){ escreve (%parametro); }elsif ($parametro{funcao} eq "exibir"){ %dados = le(); imprime_dados(); } sub escreve{ my dados = @_; open (ARQ, ">>agenda.dat") or die "Arquivo Não Encontrado"; print ARQ '"', $dados{"nome"}, '";'; print ARQ '"', $dados{"idade"}, '";'; print ARQ '"', $dados{"endereco"}, '";'; close ARQ; print qualquer~ <h3> Contato "$dados{"nome"}" adicionado com sucesso. </h3> <a href="/cgi-bin/agenda.cgi?funcao=exibir"> Voltar e Exibir Cadastro</a></body></html> ~; } sub le{ my %dados; open (ARQ, "agenda.dat"); while ($linha = <ARQ>){ ($nome, $idade, $endereco) = ($linha =~ m:^\"(.*?[^\\])?\"; \"(.*?[^\\])?\"; \"(.*?[^\\])?\"; $:x); if ($nome){ $nome =~ s/\\\"/\"/g; $idade =~ s/\\\"/\"/g; $endereco =~ s/\\\"/\"/g; $dados{$nome}{"idade"} = $idade; $dados{$nome}{"endereco"} = $endereco; } } close ARQ; return %dados; } sub imprime_dados{ print qualquer~ <html> <head> <title> Agenda</title> </head> <body> <table border="0" width="100%"> <tr> <td> Nome </td> <td> Idade </td> <td> Endereco </td> </tr> ~; foreach $nome (@nomes){ print "<!-- Contato $nome -->\n"; print "<tr>\n"; print "<td>", $nome, "</td>"; print "<td>$dados{$nome}{'idade'}\ </td> <td>$dados{$nome}{'endereco'}\ </td>"; print "</tr>\n\n"; } print qualquer~ </form></table> </body></html> ~; } abraços
-
se o server não possui uma cgi-bion pode ser colocado em qualquer lugar caso haja, ponha na cgi-bin abraços