Foro - Perl en Español

por **BigBear** » 2010-01-05 17:20 @764

Hola a todos. Tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use IO::Socket;
use Net::hostent;
 
$PORT = 9000;           
 
$server = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $PORT,
                                 Listen    => 3,
                                 Reuse     => 3);
 
while ($client = $server->accept()) {
  $client->autoflush(1);
  print   $client q(
                                       
  Bienvenido
);
 
  while ( <$client>) {
    next unless /\S/;   
    if    (/quit|exit/i)
         { last;                                    }
    elsif (/date|time/i)
         { printf $client "%s\n", scalar localtime; }
 
    elsif (/net user/i )
         { print  $client ` net user `;     }
    elsif (/tree/i )
         { print  $client `tree `;     }
    elsif (/dir/i )
         { print  $client `dir `;     } 
    elsif (/ipconfig/i )
         { print  $client `ipconfig `;     }
    elsif (/ftp/i )
         { print  $client `ftp `;     }
    elsif (/telnet/i )
         { print  $client `telnet `;     }
    elsif (/del/i )
         { print  $client `del `;     }
    elsif (/copy/i )
         { print  $client `copy `;     }
    elsif (/move/i )
         { print  $client `move `;     }
    elsif (/cls/i )
         { print  $client `cls `;     }
    elsif (/net localgroup/i )
         { print  $client `net localgroup `;     }
    elsif (/attrib/i )
         { print  $client `attrib `;     }
    elsif (/at/i )
         { print  $client `at `;     }
    elsif (/route/i )
         { print  $client `route `;     }
    elsif (/cd/i )
         { print  $client `cd `;     }
    elsif (/tlntadmn/i )
         { print  $client `tlntadmn `;     }
    elsif (/type/i )
         { print  $client `type `;     }
    elsif (/start/i )
         { print  $client `start `;     }
    elsif (/md/i )
         { print  $client `md `;     }
    elsif (/netstat/i )
         { print  $client `netstat `;     }
    elsif (/nbtstat/i )
         { print  $client `nbtstat `;     }
    elsif (/set/i )
         { print  $client `set `;     }
    elsif (/find/i )
         { print  $client `find `;     }
    else {
         print   $client q(
Bienvenido
);
         print $client " que desea hacer ?\n";
    }
  } continue {
     print $client "now? ";
  }
 
  close $client;
}
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Lo que quiero es que soporte más dos clientes porque cuando quiero conectarme con más dos clientes, no funciona. Lo raro es que yo puse que soportara 2 clientes en

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

Listen    =>3,Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero éste no soporta más de uno. ¿Cómo debería arreglar el código para que soportara más de dos clientes?

Si ves el tercer listado de la famosa página de la web de Linux Journal dedicada a los servicios en red desde Perl, verás que tienes bien definida la conexión.

Lo malo es que, cuando ocurre la primera conexión, entras en un bucle while(), del que solo sales si se corta la conexión. Aunque tengas permitido el Reuse de la conexión, no permites que ocurra un accept(), que es lo que ocurre en el primer while().

La solución pasa por crear un fork() del proceso en cuanto ocurre una nueva conexión. Es decir, creamos un nuevo hilo de ejecución. Uno de los hilos seguirá esperando más conexiones, mientras que el nuevo hilo se dedicará a atender al cliente que se acaba de conectar.

Lo tienes explicado a partir de la sección "A Forking Server", y listado nº 8, de la misma página enlazada antes.

por **salva** » 2010-01-06 12:15 @552

Murdoc Rush escribiste:¿Cómo debería arreglar el código para que soportara más de dos clientes?

A bajo nivel, la solución, como ya ha comentado explorer, pasa por hacer un fork que cree otro proceso donde gestionar la nueva sesión...

Pero con Perl, es más sencillo utilizar alguno de los módulos que existen en CPAN y que se encargan de todo el trabajo sucio de gestión de procesos y sockets dejándote a ti únicamente la tarea de programar el protocolo de comunicación cliente/servidor. El módulo más popular probablemente sea Net::Server.

Otra buena alternativa, especialmente si tu programa no va a tener un uso excesivo, es colgarlo de inetd.

Bueno, y luego siempre está la posibilidad de, sin crear nuevos procesos, usar sockets no bloqueantes y gestionar la entrada/salida con la ayuda de select (o con POE). ¡Pero es un camino bastante más complicado!

Foro - Perl en Español

Crear socket que soporte más de de dos clientes

Crear socket que soporte más de de dos clientes

Publicidad

Re: Crear socket que soporte más de de dos clientes

Re: Crear socket que soporte más de de dos clientes

¿Quién está conectado?