Ver Tema

jacks · 2012-01-10 13:11 @591

Hola. Necesito saber si existe algún módulo que te permita hacer un script que te diga si el ordenador en el que estás tiene conexión a Internet o no. ¿Alguien sabe de alguno?

explorer · 2012-01-10 13:49 @617

Hay muchas maneras. Una de ellas es mandando un paquete ping a un servidor conocido:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Software/> perl -Mutf8::all -MNet::Ping -E '$p = Net::Ping->new("syn"); $p->bind("localhost"); say "Sí" if $p->ping("8.8.8.8", 5); '
Sí

jacks · 2012-01-11 04:35 @233

Hola explorer. Yo creo que algo he puesto mal porque aunque no tenga conexión a Internet siempre me dice que sí

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use utf8::all;
use Net::Ping;
 
my $p = Net::Ping->new("syn");
$p->bind("localhost");
if ($p->ping("8.8.8.8", 5)){
    
    print  "YES\n";
}else{
    
    print "NO\n"
}

explorer · 2012-01-11 08:15 @385

El que se ha equivocado soy yo. El protocolo "syn" no funciona de esa manera.
El programa lo tienes bien, pero te dice siempre que sí, porque está diciendo que ha conseguido enviar el paquete, no que lo ha enviado y recibido correctamente. Y eso es lo que queremos, no solo saber si lo ha conseguido enviar.

No te puse el protocolo "icmp", porque según el manual de Net::Ping es necesario ejecutar el programa con permisos de root:

perl -Mutf8::all -MNet::Ping -E '$p = Net::Ping->new("icmp"); say "Sí" if $p->ping("8.8.8.8", 10);'

Esa línea sólo funcionará si la ejecutas como root, lo cual no siempre es así (querrás que tu programa lo ejecuten otros usuarios).

Entonces, lo que se puede hacer es comprobar si llega el paquete de respuesta:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Net::Ping;
 
my @host_array = qw(
    www.amazon.es
    google.es
);
 
$p = Net::Ping->new("syn");                          # nuevo intento ping, con protocolo syn
$p->port_number((getservbyname("http", "tcp"))[2]);  # nos conectamos al puerto http
foreach $host (@host_array) {                        # para cada host
    $p->ping($host);                                 # le enviamos un ping
}
 
while (($host,$rtt,$ip) = $p->ack) {                 # esperamos la respuesta
    print "HOST: $host [$ip] ACKed in $rtt seg.\n";  # alguien nos ha respondido. Informamos
}
 

Como ves, se trata de decidir por qué puerto queremos hacer la petición (entonces, necesitamos saber que lo tiene abierto), luego le enviamos un ping, y esperamos la respuesta. Si no sale nada, es que no hemos recibido nada. O que la máquina no ha conseguido resolver los nombres, lo cual nos daría lo mismo que si no estuviéramos conectados (aquí se pueden poner las IP en lugar de los nombres de las máquinas, si las sabemos).

Otra opción: usar el comando ping del sistema. Esta es una opción mejor, ya que enviamos paquetes ICMP, sin tener que decir a qué puerto queremos hacer la prueba. Y sin tener que ser root. Solo hay que preocuparnos de que ese comando está instalado en el sistema, lo cual es cierto para la gran mayoría de ellos. Con el módulo Net::Ping::External puedes hacer ping desde Linux, MSWin32, Cygwin, Solaris, BSdos, Beos, HPUX, DEC_osf, BSD, Darwin, Openbsd, Freebsd, Next, Unicosmk, Netbsd, Irix y Aix.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use Net::Ping::External qw(ping);
 
my $conexion = ping(hostname => "google.es", timeout => 5);
if($conexion) {
    say "Sí hay conexión";
}

jacks · 2012-01-20 05:29 @270

Una pregunta: ya he probado en mi casa y sí me funciona correctamente, pero lo he probado en otro lado y siempre me dice que no hay conexión. ¿Eso por qué puede ser? ¿Puede que sea por algún puerto que esté cerrado o algo?

explorer · 2012-01-20 17:40 @778

El programa depende de las posibilidades de resolución de nombres del ordenador donde se está ejecutando. Y, también, de si tiene filtrado o no el protocolo que estás usando (syn o icmp).

Para el primer caso, lo resuelves poniendo la dirección IP, en lugar del nombre.

Para el segundo caso... pues no te vale este programa, y deberás usar otro método. Por ejemplo, es posible que no esté filtrado el puerto 80, así que puedes hacer una petición HTTP al servidor remoto (y que éste sí tenga ese protocolo activo, y que el ordenador local no filtre nuestra petición).

Publicidad

Socializa