servidor http basico em perl

por **Flavio315** 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 ^^

servidor http basico em perl 33530010