Discussion :

[severine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mathieu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[severine]

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

Merci

Sev