Suivre une redirection

Version imprimable

Bonjour,
Je cherche à récupérer des documents sur des serveurs webs distants en utilisant un petit perl. Ca marche dans la plupart des cas mais, qd la page demandée est redirigée (ce qui est souvent :? ), le programme ne la suit pas et ne va pas chercher la page suvante.

Mon code ressemble à
Code:

1 2 3 4 5 6 7 8 9 10 11 ... my $useragent1 = new LWP::UserAgent; $useragent1->proxy("http", "http://".$proxy1.":".$port1."/"); push @{ $useragent1->requests_redirectable }, 'POST'; my $request1 = new HTTP::Request($const_method,$url,$header); $request1->protocol($protocol); my $response1 = new HTTP::Response; $response1 = $useragent1->simple_request($request1); ...
Est-ce quelqu'un connait une méthode pour que l'on suive les redirections???
Merci d'avance. :)

Sev

il faut regarder le champ "Location" de la réponse et ca se fait en quelque lignes comme ca :

Code:

1
2
3
4
5
6
7
8
9
10
 ...
my $res = new HTTP::Response;
$res = $useragent1->simple_request($request1); 
 
while ($res->is_redirect) { # tant que la réponse est une redirection
    my $url = $res->header('Location'); # récupérer le champ 
    $res = $ua->request(HTTP::Request->new(GET => $url));
}
 
# ici $res contient la réponse finale de ta page

07/04/2004, 11h10
severine

Merci beaucoup Mathix!
Ca a l'air de bien marcher. :D
Le seul petit pb, c'est toutes les redirections php incluses dans le code... celles-là, elles seront a priori dures à observer.

Merci :!:

Sev