Re: OT sript en perl para redirigir squid

2011-11-25 Por tema Juan Antonio
El 25/11/11 13:20, Trujillo Carmona, Antonio escribió: > 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. >>> ¿Alg

Re: OT sript en perl para redirigir squid FIN

2011-11-25 Por tema Trujillo Carmona, Antonio
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(); > $h

Re: OT sript en perl para redirigir squid

2011-11-25 Por tema Trujillo Carmona, Antonio
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 N

Re: OT sript en perl para redirigir squid

2011-11-25 Por tema Juan Antonio
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 =

OT sript en perl para redirigir squid

2011-11-25 Por tema Trujillo Carmona, Antonio
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;