Jump to content


Photo

QueryString


  • Faça o login para participar
34 replies to this topic

#16 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 19/12/2003, 13:03

Aparece akela tela de erro lah: Internal Server Error...

Tenta assim:

#!/usr/bin/perl
use CGI;                                            # Carrega modulo cgi
$query = NEW CGI;                          # Cria a variavel do mudlo
$paginas=$query->param('pagina');  # Cria a variavel
print "Content-type: text/html\n\n"; # Impressão
if ($paginas eq "index") {                # faz as comparações
print "Index"
}elsif ($paginas eq "dicas") {
print "Dicas";
}elsif ($paginas eq "Contato") {
Print "Contato";
}else{                                              # Caso não digite nada
print " Por favor, escolha uma pagina!!!";
}


print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#17 Whitesnake

Whitesnake
  • Visitantes

Posted 20/12/2003, 19:24

Consultei o error log e deu o seguinte erro:
Undefined subroutine CGI::NEW

Será q o apache ñ da suporte a esta ação?

#18 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 21/12/2003, 12:28

Faz o seguinte entao muda a seguinte linha de:
use CGI;
para:
use CGI qw/:standard/;
E a ....
$query = NEW CGI;
para:
$query = new CGI;

Em alguns casos, o uso de espaço, letras maiusculas e minusculas em alguns pontos podem dar problema no perl.

E caso de o msm erro faça o seguinte:
va em iniciar => pesquisar => arquivos ou pastas
procure por ppm*
execute o arquivo ppm.exe
digita install CGI
pronto ele ira instalar a module pra você.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#19 Whitesnake

Whitesnake
  • Visitantes

Posted 21/12/2003, 18:43

Há um problema, ñ possuo este arquivo....

#20 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 21/12/2003, 18:52

vc tem o perl instalado ?

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#21 Whitesnake

Whitesnake
  • Visitantes

Posted 21/12/2003, 20:07

Sim, perl 5.8.0

#22 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 23/12/2003, 15:19

qual a pasta esta o perl ?
o ppm.exe geralmente fica em :
c:\perl\bin\ppm.exe

procura ai ve os nomes que vocÊ acha dentro da pasta do perl e me fala.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#23 Whitesnake

Whitesnake
  • Visitantes

Posted 24/12/2003, 22:16

Eu uso uma distribuição já pronta.... Apache, PHP, CGI.....
a pasta é a seguinte:

C:\indigoperl\perl\bin

e ñ tem ppm.exe ñ...

#24 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 24/12/2003, 23:25

Tenta seguir um dos nosso tutoriais entao... talvez você tenha sucesso ...

Feito por mim:
http://forum.wmonlin...showtopic=43479

Feito pelo gabriel:
http://forum.wmonlin...showtopic=43503

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#25 Whitesnake

Whitesnake
  • Visitantes

Posted 25/12/2003, 15:51

Intao quer dizer q eu tenho q pegar o Active Perl?

#26 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 25/12/2003, 17:29

eh so seguir o tutorial.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#27 Whitesnake

Whitesnake
  • Visitantes

Posted 25/12/2003, 19:51

Blz, só q eu queria instalar o Perl no IIS, tem jeito?
Abri um tópico em http://forum.wmonlin...showtopic=50031

#28 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 20:55

#!/usr/bin/perl
use CGI; # Carrega modulo cgi
$query = NEW CGI; # Cria a variavel do mudlo
$paginas=$query->param('pagina'); # Cria a variavel
print "Content-type: text/html\n\n"; # Impressão
if ($paginas eq "index") { # faz as comparações
print "Index"
}elsif ($paginas eq "dicas") {
print "Dicas";
}elsif ($paginas eq "Contato") {
Print "Contato";
}else{ # Caso não digite nada
print " Por favor, escolha uma pagina!!!";
}

onde eu defino a pagina e o formato dela?
por exemplo, se for a pagina perl.html
e eu queria chamar index.cgi?pagina=cgi
como eu faço isso?

#29 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 11/09/2005, 21:04

#!/usr/bin/perl



use CGI; # Carrega modulo cgi



$query = NEW CGI; # Cria a variavel do modulo

$paginas=$query->param('pagina'); # Cria a variavel



print "Content-type: text/html\n\n"; # Impressão





if ($paginas eq "cgi") { # faz as comparações

open(A,"$paginas.html");

@pagina = <A>;

close(A);

print "@pagina";

}elsif ($paginas eq "dicas") {

open(A,"$paginas.html");

@pagina = <A>;

close(A);

print "@pagina";

}else{ # Caso não digite nada

print " Por favor, escolha uma pagina!!!";

}

Edição feita por: prix, 11/09/2005, 21:05.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#30 Inu

Inu

    Veterano

  • Usuários
  • 1138 posts
  • Sexo:Masculino
  • Localidade:Canela, Rio Grande do Sul, Brasil

Posted 11/09/2005, 21:09

e se a pagina se chama perl.htm
e eu queria fazer a query assim:
index.cgi?pagina=cgi
ai como ficA?




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq