Ejecutar comandos al cambiar la ip

Estoy teniendo muchos problemas con mi conexión a internet, cambiandome la ip hasta 29 veces al día, así que necesito un programa que actualice los datos de ciertas aplicaciones cada vez que haya un cambio. En el ejemplo, solo guarda la ip y la fecha en un fichero, pero se pueden añadir todo tipo de acciones en la zona central del bucle.

#!/usr/bin/perl \$interfaz="ppp0"; # O podriamos usar @ARGV[0] para obtenerlo de la linea de comandos. \$antigua=""; #Inicializamos la ip antigua a cadena vacía while () # Ejecutar siempre { open(IFCONFIG,"ifconfig $interfaz |"); # La tuberia final indica que esperamos leer la salida del ifconfig @ip=grep /inet addr:/, <IFCONFIG>; # Filtramos las lineas del resultado que contengan "inet addr:" close(IFCONFIG); @ip[0]=~s/^.*inet addr://; @ip[0]=~s/ .*\$//; @ip[0]=~s/\\n//; # Dejamos solo la ip en la cadena if (@ip[0] ne \$antigua) # Si las ip es diferente de la que teniamos guardada hacer { system("echo -e \"".@ip[0]." ".localtime()."\" >> ".$ENV{HOME}."/.iplog"); # Añadimos la nueva ip y la fecha a un fichero en nuestro directorio personal \$antigua=@ip[0]; # Actualizamos la ip que conoce el programa } sleep(300); # Esperamos 300 segundos y a volver a empezar } exit;

Descargar: iplog.pl

Otras entradas de la web que podrian interesarte:

• (858)  Jan 26  TRUCOS WINDOWS  Cambiar IP en Windows desde la linea de comandos
• (830)  May 28  PERL LINUX ENGLISH  Installing CPAN Perl modules made easy
• (829)  May 28  PERL LINUX  Instalar modulos CPAN de Perl
• (902)  Jan 25  PERL DBI PROGRAMACION ENGLISH MYSQL  Reading a random row from a MySQL table with Perl DBI
• (778)  Jul 03   JAVA   Ejecutar en segundo plano usando hilos (threads)

3736

Anonimo (2009-09-15 07:49:34)

ijoijoi