extraire une image avec LWP

Salut !

J'ai cherché un moment sur le site, mais je n'ai rien trouvé à ce sujet.

Mon problème consiste à extraire une image d'une réponse à un get.
J'ai trouvé sans problèmes comment extraire les formulaires, les remplir et renvoyer un get qui marche bien, mais je suis incapable d'extraire les images.

Voila en gros mon code (en extrèmenent simplifier) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my $adresse = "http://www.google.fr"; my $req; my $res;   # initialisation de l'agent my $ua = LWP::UserAgent->new( keep_alive => 3, agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav');   # création de la requête $req = HTTP::Request->new( GET => "${adresse}" );   # exécute la requête et reçoit la réponse $res = $ua->request($req); die $res->status_line if not $res->is_success;

---

Maintenant, je voudrais récupérer toutes les images contenues dans $res.
J'imagine que c'est un peu comme pour récupérer les formulaires :

Code:

---

1 2	my @forms = ( HTML::Form->parse( $res->content, $adresse ) );

---

Mais j'ai beau chercher, je trouve pas la fonction.

Quelqu'un pourrait il m'éclairer un peu ?

Merci d'avance

tu peux plutot recuperer les lien href via le module URI je crois et recuperer les liens se terminant par png, jpg, etc. Ensuite avec l'url, tu as les images!!

Ok, merci, je pense qu'un simple parseur pour retrouver le lien de l'image marche effectivement.

Je vais essayer de me débrouiller avec ça.

Sinon, ça n'a pas grand chose à voir, mais je me demandais s'il était possible d'insérer un mini navigateur web dans une interface utilisant le module Tk.

Juste quelque chose qui soit capable d'interpréter les balises HTML, histoire que ce ne soit pas affiché dans l'interface de façon trop illisible.

Voir même lui demander d'interpréter directement les requetes et les résultats de requetes, faire un parallèle avec le module LWP (ou un autre), mais la je doute fortement que quelque chose comme ça existe déjà.