Re: OT sript en perl para redirigir squid FIN
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.
Reply to: