[SP-pm] Apresentando-me

Solli Honorio shonorio at gmail.com
Fri May 20 19:20:15 PDT 2011


Rafael,

Recentemente tivemos uma discussão sobre servidor na lista, dê uma olhada no
histórico (http://mail.pm.org/pipermail/saopaulo-pm/2011/013914.html) 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.

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

Outra coisa, que tipo de erro você está recebendo ?

Abraços,

Solli M. Honório

Em 20 de maio de 2011 18:49, Rafael <design.silveira em gmail.com> escreveu:

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


-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110520/82eed96e/attachment.html>


More information about the SaoPaulo-pm mailing list