servidor http basico em perl

Ir em baixo

servidor http basico em perl

Mensagem por Flavio315 em Dom Jun 23, 2013 5:11 am

bom galera nesse tutorial vou ensinar como criar um servidor basico de http com a linguagem perl, para começar vamos ter que fazer nosso servidor esperar uma conexao entao vamos declarar os modulos para usar socket

Código:
#!/usr/bin/perl

use IO::Socket::INET;

agora instanciamos ela e colocamos para esperar a conexao

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>"10315",Listen=>"2",Proto=>"tcp",Reuse=>1);
$hack = $fts->accept();

no exemplo acima ele vai ta esperando uma conexao na port 10315, agora vamos enviar as seguintes informaçao "HTTP/1.0 200 accept", "Connection: close", "Allow: GET,POST,HEAD,OPTIONS", "Server: nome do seu servidor" ,"Content-Type: text/html", Content-Length: tamanho da pagina", damos 2 quebras de linha e a nossa pagina html, para ficar mais organizado eu criei o cabeçalho em uma variavel e o html em outra

Código:
#!/usr/bin/perl

use IO::Socket::INET;

$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>"10315",Listen=>"2",Proto=>"tcp",Reuse=>1);
$hack = $fts->accept();


$lol = "HTTP/1.0 Accept 200 " .
      "Connection: close " .
      "Server: fts " .
      "Allow: GET,POST,HEAD,OPTIONS " .
      "Content-Type: text/html " .
      "Content-Length: ";

$pagina = "\n\n<html>" .
         "<head>" .
         "<title>by hacker fts315</title>" .
         "</head>" .
         "<body bgcolor=black text=white>" .
         "<center><font color=red><h1>SERVIDOR FTS HTTP LOL</h1></font><hr>" . 
         "testando um servidor http basico criado em perl by hacker fts315</center>" .
         "</body>" .
         "</html>";

$tam = length($pagina);

$servidor = $lol . $tam . $pagina;

$hack->send($servidor);
$hack->close

agente poderia melhorar e muito nosso servidor fazendo ele carregar um arquivo html, salvar logs de conexao, criar um loop para ele conectar denovo etc ^^



by hacker fts315






Olá Caro usuario, olhe essas Dicas Importantes:
Respeite as [Você precisa estar registrado e conectado para ver este link.].
- [Você precisa estar registrado e conectado para ver este link.].
Fique atento a o [Você precisa estar registrado e conectado para ver este link.].
Veja os [Você precisa estar registrado e conectado para ver este link.] do fórum.
Não peça suporte por MP ou no Chat-Box.
avatar
Flavio315
Moderapixel

Quebra de regras Quebra de regras :
0 / 1000 / 100

Masculino Mensagens Mensagens : 54
Pontos Pontos : 146
Reputação Reputação : 0
Data de inscrição Data de inscrição : 19/06/2013
Localização : sub-mundo da informatica

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: servidor http basico em perl

Mensagem por Pixel em Seg Jun 24, 2013 4:06 pm

Obrigado agora eu sei o basico em http em perl que eu queria saber.

Até mais.






Olá Convidado, olhe essas Dicas Importantes:
Respeite as [Você precisa estar registrado e conectado para ver este link.].
- [Você precisa estar registrado e conectado para ver este link.].
Fique atento a o [Você precisa estar registrado e conectado para ver este link.].
Veja os [Você precisa estar registrado e conectado para ver este link.] do fórum.
Não peça suporte por MP ou no Chat-Box.
avatar
Pixel
Admin
Admin

Quebra de regras Quebra de regras :
0 / 1000 / 100

Masculino Mensagens Mensagens : 199
Pontos Pontos : 271
Reputação Reputação : 0
Data de inscrição Data de inscrição : 14/06/2013
Idade Idade : 26
Localização : CASA

Ver perfil do usuário http://universalpixel.forum-pro.net

Voltar ao Topo Ir em baixo

Re: servidor http basico em perl

Mensagem por DaViD-DaVID em Ter Jun 25, 2013 2:15 am

Obrigado Por Compartilhar conosco






    Olá DaViD-DaVID, olhe essas Dicas Importantes:
Respeite as [Você precisa estar registrado e conectado para ver este link.].
- [Você precisa estar registrado e conectado para ver este link.].
Fique atento a o [Você precisa estar registrado e conectado para ver este link.].
Veja os [Você precisa estar registrado e conectado para ver este link.] do fórum.
Não peça suporte por MP ou no Chat-Box.
avatar
DaViD-DaVID
Membro


Quebra de regras Quebra de regras :
0 / 1000 / 100

Masculino Mensagens Mensagens : 53
Pontos Pontos : 88
Reputação Reputação : 1
Data de inscrição Data de inscrição : 14/06/2013
Idade Idade : 19

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: servidor http basico em perl

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum