Using perl Syntax Highlighting
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla");
$ua->cookie_jar($cookie_jar);
$ua->proxy('http', "http://$linea");
$ua->timeout(10);
$req = HTTP::Request->new (POST, $url);
$req->content_type("application/x-www-form-urlencoded");
$req->content($query);
push @{ $ua->requests_redirectable }, 'POST';
$res = $ua->request($req);
$ua->agent("Mozilla");
$ua->cookie_jar($cookie_jar);
$ua->proxy('http', "http://$linea");
$ua->timeout(10);
$req = HTTP::Request->new (POST, $url);
$req->content_type("application/x-www-form-urlencoded");
$req->content($query);
push @{ $ua->requests_redirectable }, 'POST';
$res = $ua->request($req);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Funciona perfectamente, excepto por un detalle: cuando uno de los proxies en lista muere, o es extremadamente lento, el programa sigue esperando por el ilimitadamente. Lo que me gustaría saber es cómo hacer para que el programa espere por ejemplo 5 segundos por cada proxy y después cambie al siguiente independientemente de si obtiene respuesta o no. Probé a hacer una burrada que se me ocurrió: una variable tal que $tiempo = time() + 20; y meterle un while, pero no cuajo del todo y todo lo que leí por ahí va de timeout, pero en mi caso no funciona. Muchas gracias por cualquier ayuda que me ofrezcáis