Foro - Perl en Español

Que tal? soy nuevo en el mundo de perl y me surgio un problema haciendo un script para que lea un archivo de ips y verifique si tiene un puerto X abierto, es una especie de scanner, que al crear el socket "$sock = IO::Socket::INET->new(PeerAddr => "$IP[$a]" , PeerPort => 80, Proto => "tcp", Timeout => 1)" y ponerle un || $a++; para que vaya incrementado tengo un problema al llegar a una ip cuyo puerto esta cerrado y me devuelve connection refused el script se queda trabado en esa ip y no puedo hacer mas nada, alguien por favor me podria decir un metodo para chequear que una ip X al tener el puerto completamente cerrado la pase de largo y siga con las demas ya que el || $a++; no funciona con ese tipo de casos, realmente busque en todos lados y no encontre nada de gran ayuda.

Gracias de antemano.

Hecha un vistazo a este código.

Código: Seleccionar todo

foreach (; $port<=$maxport; $port++)
{
        $socket= new IO::Socket::INET (
                PeerAddr=>"$target:$port",
                Proto=>'tcp',
                Timeout=>'1' ); # Timeout.

        if ($socket) {  # Port listening.
                $openport++;
                print "\tPort $port ";
                # ...
       }
}

Ok, explorer, muchas gracias. Voy a echarle un vistazo.

humm... funcionó pero ahora tengo otro problema: resulta que cuando entro a un servidor que tiene el puerto 80 abierto y telneteo y hago un GET y no obtengo respuesta alguna. Se traba el script en esa IP y no puedo hacer que cierre la conexión y siga con la IP siguiente. ¿Alguna idea?

explorer escribiste:Hecha un vistazo a este código.

Código: Seleccionar todo

foreach (; $port<=$maxport; $port++)
{
        $socket= new IO::Socket::INET (
                PeerAddr=>"$target:$port",
                Proto=>'tcp',
                Timeout=>'1' ); # Timeout.

        if ($socket) {  # Port listening.
                $openport++;
                print "\tPort $port ";
                # ...
       }
}

Supongo que el código no es tuyo, y lo pusiste con fines de ejemplificar, sin embargo está feamente escrito y con muy muy malas prácticas, en lo personal no lo recomendaría.

Sin embargo volviendo al problema principal, si tus necesidades son "pequeñas" y rápidas en cuanto al port scanner que quieres, haciendo un telnet a X puerto con Net::Telnet funcionaría. Si tus necesidades son mas "específicas" en cuanto a que tan verídicos quieres los resultados, te recomiendo echarle un vistazo a Nmap::Scanner ( requiere de nmap ).

Escribir el port scanner a mano no está mal, simplemente ya hay herramientas que te permiten hacerlo de manera aun mas sencilla, si no se adaptan a lo que requieres entonces adelante, IO::Socket::INET o en su defecto Socket te dá la mano.

Para tu problema final, intenta estableciendo timeouts mas pequeños, para uqe la conexión la cierre en ese tiempo y puedas continuar.

Saludos,

novatito escribiste:mm funciono pero ahora tengo otro problema resulta que cuando entro a un servidor que tiene el puerto 80 abierto y telneteo y hago un GET y no obtengo respuesta alguna se traba el script en esa ip y no puedo hacer que cierre la conexion y siga con la ip siguiente, alguna idea?

Para eso están los timeouts. Repasa la documentación del módulo que estás usando, en lo referente a timeout.