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 <[email protected]> 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: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- "o animal satisfeito dorme". - Guimarães Rosa
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
