Temas

[fork()]

Veo que hay muchos batch y casi nada de perl  de todas formas me voy a aventurar haciendo mi pregunta acá.

Vi un programa el cual creaba coneccciones multiples a un servidor... creo que lo hizo Lympex pero al bajarlo me di cuenta de que estaba creado en visual basic 

Intenté crear uno igual en perl pero hasta ahora no me ha resultado. La idea es crear multiples conexiones sin peticiones hacia un servidor son desconectar el socket

Código (perl) [Seleccionar] Expandir

use IO::Socket;
use threads;

$host = $ARGV[0];
$puerto = $ARGV[1];
$sockets = $ARGV[2];
$i = 1;

print "Iniciando\n";
while ($i <= $sockets) {
print '*';

$sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $puerto, Proto => 'tcp', Timeout => 1) || die ".";
print $sock "";
$i++;

}
print "\nTerminado.\n";
exit(1);

Lo malo es que conecta y desconecta muchas veces los sockets y la idea es hacerlo simultaneo sin que se desconecte ninguno para despues argumentar que si la conexión falla que buelva a crear el bluce de conexiones.

Un amigo me dijo que podía crear procesos con fork() pero se de otra función que carga sockets en memoria para ser utilizados con createsocket o algo asi pero no sabría como utilizarlo en perl.