Foro - Perl en Español

por **brianstanley** » 2012-05-14 14:13 @634

¿Qué tal, gente? Estoy tratando de hacer un programa que conecte a los puertos y si no que me diga que no se conectó, pero tengo un problema cuando empiezo a ejecutar me tira este error:

Useless use of a variable in void context at sockPerl.pl line 16.

Acá esta el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use IO::Socket;
$port = 20;
for($port; $port<=100;$port++){
        $con = IO::Socket::INET->new(
                          PeerAddr => 'www.brianstanley.com.ar',
                          PeerPort => $port,
                          Proto => 'tcp',
                          Timeout =>1
                          );
        if($con){
           print "El puerto ".$port." esta abierto";    
        }else{
           print "El puerto ".$port." esta cerrado ";   
        };                                
};
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Problema con sockets y for

Problema con sockets y for

Publicidad

Re: Problema con sockets y for

Re: Problema con sockets y for

¿Quién está conectado?