El 25/11/11 11:12, Juan Antonio escribió: > 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"; >> } >> } >> > > ¿Cómo lo ejecutas? Tienes que pasarle como parámetro uno o mas archivos, > no URLs. > > Un saludo. > > Se trata de un programa para redirigir url desde el squid, en las caracteristicas ( y los ejemplos ) dicen que tiene que ser un bucle infinito que irán reciviendo las peticiones como parametros.
-- Everything that you know is wrong, but you can be straightened out. 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/4ecf87fe.4080...@juntadeandalucia.es