Re: OT sript en perl para redirigir squid

[Juan Antonio <pushakk@limbo.ari.es>]

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.