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
