Código
#!/usr/bin/perl use IO::Socket::INET; while($x<=$slot) { IO::Socket::INET->new( PeerAddr => "$ip", PeerPort => "$puerto" , Proto => "tcp"); $x++; }
parte del codigo es este..
El tema es que creo que envia simpre el mismo socket,yo necesito enviar distintos sockets al puerto .
las variables , $puerto y $ip son pasadas por <STDIN>
Alguien me podria decir como puedo hacer un array con muchos sockets ? o alguna forma de enviar muchos sockets distintos a un msimo puerto sin ningun tipo de informacion,solo necesito que conecten.
Desde ya muchas gracias .
PD : Este script corre correctamente, pero no pude tener los mismos resultados que tube con un visualbasic que programe , que mandaba con un arreglo de winsock muchos sockets al mismo puerto.
EDIT : Acabo de hacer unas pruebas con netstat -a , en el perl solo conecta 1 socket al puerto , en cambio cuando uso mi visualbasic con arreglos de winsock conecta mas de 300 ..alguien puede ayudarme a hacer conectar muchos sockets ? saludos.