El 25/11/11 10:06, Trujillo Carmona, Antonio escribió: > > No se por que no me funciona esto: > por lo que he podido analizar no llega a leer la dirección en la entrada > del programa. > ¿Alguien puede hecharme una mano?: > > #!/usr/bin/perl > use Net::Ping; > $|=1; > $p = Net::Ping->new(); > $host = "10.60.163.226"; > $n_intentos=3; > while (<>) { > chomp; > @X = split; > $url = $X[1]; > if ($url =~ /^http:\/\/www\.hvn\.es/) { > $n = 1 ; > while ($n < $n_intentos) { > if ( $p->ping($host) ) { > $url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/; > print $X[0]." 302:$url\n"; > $n = $n_intentos ; > } else { > $n++; > } > } > print $X[0]." \n"; > } else { > print $X[0]." \n"; > } > } > Muchas gracias y perdonar por el ruido, he optado por otra solución
-- Alone, adj.: In bad company. -- Ambrose Bierce, "The Devil's Dictionary" Por favor, NO utilice formatos de archivo propietarios para el intercambio de documentos, como DOC y XLS, sino HTML, RTF, TXT,CSV o cualquier otro que no obligue a utilizar un programa de un fabricante concreto para tratar la información contenida en él. SALUD. -- To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org Archive: http://lists.debian.org/4ecf8833....@juntadeandalucia.es