Rafael,<div><br></div><div>Recentemente tivemos uma discussão sobre servidor na lista, dê uma olhada no histórico (<a href="http://mail.pm.org/pipermail/saopaulo-pm/2011/013914.html">http://mail.pm.org/pipermail/saopaulo-pm/2011/013914.html</a>) que vale a pena. De uma maneira geral, não recomendo você fazer isto do teu jeito, pois você está colocando o teu servidor em risco e sem ter a menor consciência disto.</div>

<div><br></div><div>Eu recomendo fortemente que você utilize um framework especializado nisto, tal como o Mojolicious (como já recomendado), ou o AnyEvent (<a href="http://search.cpan.org/~mlehmann/AnyEvent-HTTP-2.11/HTTP.pm">http://search.cpan.org/~mlehmann/AnyEvent-HTTP-2.11/HTTP.pm</a> ou <a href="http://search.cpan.org/~elmex/AnyEvent-HTTPD-0.92/lib/AnyEvent/HTTPD.pm">http://search.cpan.org/~elmex/AnyEvent-HTTPD-0.92/lib/AnyEvent/HTTPD.pm</a>). Com estes framework você terá acesso as melhores práticas em arquitetura de software de maneira simples e rápida.</div>

<div><br></div><div>Outra coisa, que tipo de erro você está recebendo ?</div><div><br></div><div>Abraços,</div><div><br></div><div>Solli M. Honório</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>

<br><div class="gmail_quote">Em 20 de maio de 2011 18:49, Rafael <span dir="ltr"><<a href="mailto:design.silveira@gmail.com">design.silveira@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Boa noite a todos.<br>
<br>
Me chamo Rafael Silveira, e já algum tempo trabalho como desenvolvedor web.<br>
Porém, antes de trabalhar na área, Perl e C foram as linguagens que me ajudaram muito nos meus estudos.<br>
Hoje voltei a usar Perl, que ver como ela esta atualmente, e já tenho alguns projetos.<br>
<br>
Espero poder ajudar no possível aqui, e espero que vocês também tenham calma comigo. rsrs.<br>
<br>
E para começar, estou com um probleminha relacionado a Sockets.<br>
Preciso desenvolver uma mini servidor http que responda a requisições ajax de uma página.<br>
<br>
Se me permitem, enviarei o source de teste do meu server.<br>
<br>
---- <a href="http://http.pl" target="_blank">http.pl</a> ---<br>
#!/usr/bin/env perl -w<br>
<br>
use IO::Socket::INET;<br>
<br>
my $server = IO::Socket::INET->new(<br>
    LocalPort => 1337,<br>
    Type => SOCK_STREAM,<br>
    Reuse => 1,<br>
    Listen => SOMAXCONN<br>
) or die "$!";<br>
<br>
print "Listening at port 1337...\n";<br>
<br>
while (1) {<br>
    if ($client = $server->accept()) {<br>
        print "Client connected!\n";<br>
        print $client "Hello!\n";<br>
        close($client);<br>
    }<br>
}<br>
<br>
close($server);<br>
---- <a href="http://http.pl" target="_blank">http.pl</a> ---<br>
<br>
<br>
A questão ai é a seguinte, quando eu acesso esse "server" diretamente pelo browser (<a href="http://127.0.0.1:1337" target="_blank">http://127.0.0.1:1337</a>), a mensagem "Hello!" aparece normal. Porém quando tento via requisição AJAX, o navegador me acusa falha e não traz a resposta.<br>


<br>
Se alguém ai puder me ajudar, desde já agradeço.<br>
Aceito também exemplos mais complexos de servidor http. Porém não precisa ser com suporte a arquivos html, algo mais simples, como por exemplo, os header a serem enviados (eu ainda nao saquei como enviar os headers http por socket) e outras possíveis configurações do socket em si.<br>


<br>
Desde já agradeço.<br>
[]'s<br>
=begin disclaimer<br>
  Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br>
</blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa<br>
</div>