[Cascavel-pm] client/servidor
Ricardo Stock
ricardostock em bol.com.br
Terça Janeiro 22 02:41:04 PST 2008
Bom dia a todos da lista....
Gente, estou começando a desenvolver uma aplicação cliente/servidor, a primeira que estou fazendo :-) em plataforma win32, porém estou com uma duvida. O servidor parece estar rodando ok, pois o executo e o mesmo fica aguardando a conexão.
Estou iniciando o desenvolvimento de um programa que fara determinadas funções dependendo do comando recebido, mas isto é coisa para o futuro.
O erro s da, ao que parece quando o cliente tenta enviar a mensagem de teste, me da a mensagem que nao foi possivel chamar o metodo send, ai, a duvida, pois, não sei o que fazer....
segue o código abaixo. Caso alguma sugestão, sera de bom agrado
servidor.pl
=================
#!c:\perl\bin\perl.exe
#SERVER.PL
use IO::Socket::INET;
print "Servidor Sockt TCP em Perl\n";
$server = IO::Socket::INET->new(
LocalAddr=>"127.0.0.1",
LocalPort=>7000,
Proto=>'tcp',
Listem=>10
);
$sock_client= $server->accept();
while( 1) {
$sock_client->recv($data,1024);
if ($data)
{
print "\n Recebido: ", $data, "\n";
}
}
cliente.pl
====================
#!c:\perl\bin\perl.exe
#CLIENT EM PERL
use IO::Socket::INET;
print "Cliente Socket TCP em perl";
$client = IO::Socket::INET->new(
PeerAddr=>"127.0.0.1",
PeerPort => "7000",
Timeout => 60);
while(1)
{
$msg = "Mensagem de Teste";
print "Enviando: ",$msg,"";
if($client->send($msg))
{
print "Enviado com sucesso","n";
sleep(5);
}
}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080122/6e13fe61/attachment-0001.html
Mais detalhes sobre a lista de discussão Cascavel-pm