🚀 go-pugleaf

"Jos� Luis P�rez Diez" wrote:
> 
> In article <3A3F25B5.936991B3@enpl.es>, Dani Pardo wrote:
> > 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?
> >
> 
> haz proceso hijo con fork por ejeplo para cada nueva conexion entrante una cosa
> asi
> #!/usr/bin/perl

	Ok, gracias, al final tengo esto (usando IO::Socket):
--------------------------------------------------------------------
#!/usr/bin/perl -w

#use strict;
use IO::Socket;

my $dades;
my ($client,$server);      # Els socket handles
my $LlistaClients;

$server= IO::Socket::INET->new(LocalPort => 4114,
                    Type => SOCK_STREAM,
                    Reuse => 1,
                    Listen => 10) or die "No puc obrir socket al port
4114\n";

print "Escoltant al port 4114...\n";

while($client=$server->accept())
{
 # Afegim $client a la @LlistaClients
 if ($pid=fork())
 {
  # Parent
  close($client);
 }
 else
 {
  # Child

  while($client->recv($dades_rebudes,20))
   {
     if($dades_rebudes=~/quit/i)
       {
        #shutdown($client,2);
        $client->close();
        exit(0);
       }
     else
       {
        printf("%s\n",$dades_rebudes);
        $client->send($dades_rebudes);
       }
   }
 }

}

------

 Lo que he visto, es que el servidor queda con el socket en TIME_WAIT...
y no s� si eso es malo (creo que no). Cuando se acaban los datos a
enviar/recibir, tanto el padre como el hijo han hecho close() del
socket.. as� que no s� si deberia quedar en TIME_WAIT..

 
 Bueno, gracias por la info. :)

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