Discussion :

[bennyben87]

Bonjour,
Je télécharge des fichiers xml en http.
Voici le code que j'ai mis en place:

Code :

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

1
2
3
4
5
6
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => "http://$btsip/ram/HWInformation.xml");
open(HW, ">fichiers_HWinfo/XHWInformation$nominal~$btsip~$wbtsinst"); 
$print=$ua->request($req)->as_string;
 
print HW "$print";

Le programme se déroule bien mais le problème est que dans le fichiers récupérés, le programme rajoute 9 lignes au début, celles ci:
HTTP/1.1 200 OK
Connection:close
Date:.....
......
....

des infos concernant la connection quoi.
Est-ce déjà arrivé à quelqu'un?
Comment faire pour éviter ce problème?

Merci d'avance

[Jedai]

Ben c'est normal, as_string() sérialise ton objet réponse, donc tu as droit aux entêtes comme au contenu de la réponse, utilise content() au lieu de as_string() et le "problème" est réglé.

Par ailleurs pour faire un truc aussi simple avec LWP il y a mieux :

Code :

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

1
2
use LWP::Simple;
getstore("http://$btsip/ram/HWInformation.xml", "fichiers_HWinfo/XHWInformation$nominal~$btsip~$wbtsinst");

--
Jedaï

[bennyben87]

Merci bien!
Très bonne idée.

Bonne après midi