probleme LWP avec XML::XPath

Bonjour,
Je parse des fichiers XML avec XML::XPath.
En temps normal pas de problemes j'utilise LWP::Simple

my $link = "http://www.popo.com/popo.xml";
my $document = get($link);
my $xp = XML::XPath->new(xml => $document);

Mais pour acceder a certain fichiers XML il y a une authentification donc :

my $link = "http://www.popo.com/popo.xml";
my $ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $link);
$req->authorization_basic('login', 'password');
$document = $ua->request($req)->as_string;
my $xp = XML::XPath->new(filename => $document);

l'authentification se deroule bien mais le texte du fichier XML est renvoyé a l'écran et XML::XPath renvoie une erreur ligne 53 !!

quelqu'un sait pourquoi ????
Merci

Citation:

---

Envoyé par defdef

Code:

---

1 2	$document = $ua->request($req)->as_string; my $xp = XML::XPath->new(filename => $document);

---

l'authentification se deroule bien mais le texte du fichier XML est renvoyé a l'écran et XML::XPath renvoie une erreur ligne 53 !!

quelqu'un sait pourquoi ????
Merci

---

Utilises les balises codes autour de ton script (bouton #) !!!!

as_string() renvoie une représentation textuelle de la réponse HTTP, donc les entêtes sont inclus, tu ne le souhaites pas, ce que tu veux c'est le contenu de la réponse, le xml. Tu devrais donc utiliser content().
Une fois que tu as ce contenu, il vaut mieux ne pas le passer en tant que "filename" (nom de fichier) à XML::XPATH ! Evidemment XML::XPATH ne risque pas d'arriver à ouvrir ce soi-disant "fichier" dont le nom commence par <xml....> . :roll:

Au final ton programme devrait plutôt finir comme ça :

Code:

---

1 2 3

my $resp = $ua->request($req); die "The request did not succeed ", $resp->message, "\n" if not $resp->is_success; my $xp = XML::XPath->new(xml => $resp->content);

---

--
Jedaï