<P>Bom dia a todos da lista....</P>
<P><BR>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. </P>
<P>Estou iniciando o desenvolvimento de um programa que fara determinadas funções dependendo do comando recebido, mas isto é coisa para o futuro.</P>
<P>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....</P>
<P> segue o código abaixo. Caso alguma sugestão, sera de bom agrado</P>
<P>servidor.pl<BR>=================<BR>#!c:\perl\bin\perl.exe<BR>#SERVER.PL</P>
<P>use IO::Socket::INET;<BR>print "Servidor Sockt TCP em Perl\n";<BR>$server = IO::Socket::INET->new(<BR> LocalAddr=>"127.0.0.1",<BR> LocalPort=>7000,<BR> Proto=>'tcp',<BR> Listem=>10<BR> );<BR>$sock_client= $server->accept();</P>
<P>while( 1) {<BR> $sock_client->recv($data,1024);<BR> if ($data)<BR> {<BR> print "\n Recebido: ", $data, "\n";<BR> }<BR> }</P>
<P>cliente.pl<BR>====================</P>
<P>#!c:\perl\bin\perl.exe</P>
<P>#CLIENT EM PERL</P>
<P>use IO::Socket::INET;<BR>print "Cliente Socket TCP em perl";<BR>$client = IO::Socket::INET->new(<BR> PeerAddr=>"127.0.0.1",<BR> PeerPort => "7000",<BR> Timeout => 60);</P>
<P> while(1)<BR> {<BR> $msg = "Mensagem de Teste";<BR> print "Enviando: ",$msg,"";<BR> if($client->send($msg))<BR> {<BR> print "Enviado com sucesso","n";<BR> sleep(5);<BR> }<BR> }<BR></P>