probleme http perl

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

Code:

---

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

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:

---

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

---

--
Jedaï

Merci bien!
Très bonne idée.

Bonne après midi