🚀 go-pugleaf

	Tengo un servidor TCP en perl, que hace de "echo" de lo que le envias.
	La cosa funciona bien si hay una sola conexi�n, pero si hay 2
conexiones concurrentes, la segunda se queda esperando a que finalize la
primera. 
	En principio esto no es problema por el problema que tengo que
resolver. El caso es que si la primera conexi�n se queda en CLOSE_WAIT o
algo asi, los dem�s clientes no pueden hacer nada, y es como si el
servicio estuviese inactivo.
 	C�mo podria modificar el programa para que sirviese m�ltiples
conexiones a la vez?

 	Gracias,


#!/usr/bin/perl -w

#use strict;
use IO::Socket;

my $dades;
my ($client,$server);      # Socket handles

$server= IO::Socket::INET->new(LocalPort => 4114,
                    Type => SOCK_STREAM,
                    Reuse => 1,
                    Listen => 10) or die "No puedo abrir socket en
puerto 4114\n";

print "Escuchando en el puerto 4114...\n";

while($client=$server->accept())
{
   while($client->recv($dades_rebudes,20) &&
(!($dades_rebudes=~/quit/)))
    {
     printf("%s\n",$dades_rebudes);
     $client->send($dades_rebudes);
    }
   print "Cerrando cliente.\n"; $client->close();
}
$server->close();



---
Dani Pardo, dani@enpl.es
Enplater s.a