aspirer une page web sous windows: quels modules pour mon code?

Bonjour, je voudrais développer un programme qui enregistre le contenu d'une page web sur mon PC, pour ensuite faire une recherche par mot clef sur la source.
Je travaille sous Windows XP,
j'ai trouvé le code suivant


use LWP::Simple;

$mydocument=get(http://www.google.fr); (par ex)

$reqstatus=getstore(http://www.google.fr, "myfile.html");

die unless is_success($reqstatus);

ce programme plante car il me dit qu'il ne connait pas les fonction get et getstore. j'ai installé via la commande ppm le module lwp-simple-post, je ne sais pas vraiment si c'est le bon. est-ce que t'as une idée? je n'arrive pas non plus à installer le module LWP en entier. Je débute en PERL, et je ne comprends pas ce qu'il se passe.

Merci pour votre aide

piotr

Code:

---

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

use LWP::UserAgent; # Client html   my $ua = LWP::UserAgent->new; $ua->agent("MyApp/0.1 "); my $http = HTTP::Request->new(GET => 'http://www.google.fr'); my $res = $ua->request($http); if ($res->is_success){ print $res->content; } else{ print $res->status_line; } exit 0;

---

pour le post cé quasi pareil :

Code:

---

1 2 3 4 5 6

$http = HTTP::Request->new(POST => 'www.siteWeb.com'); $http->content_type('application/x-www-form-urlencoded'); $http->content("param1=val1&param2=val2&param3=val3"); $res = $ua->request($http); return $res->status_line if (!$res->is_success);

---

voilà, amuse toi bien.
aucun package à install normalement. (libwww-perl est déjà install il me semble)
Rq : si tu veux grabber des https (SSL), il te faut Crypt-SSLeay
Si tu as une version 5.8 :
ppm>install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
Sinon (versions 5.6)
ppm>install http://theoryx5.uwinnipeg.ca/ppmpack...ypt-SSLeay.ppd

Merci pour ta réponse, malheureusement j'ai le message d'erreur "can't locate object method "new" via package "LWP:: useragent" (perhaps you forgot to load "LWP::useragent"?
en faisant une recherche ppm search lwp ,j'ai plusieurs modules à ma disposition:

LWP-UserAgent-determined
LWP-UserAgent-iTMS_client
LWP-UserAgent-Proxyany
LWP-UserAgent-TWiki-TWikiGuest
LWP-UserAgent-WithCache

je ne sais pas trop lequel employer

Citation:

---

Envoyé par ramislebob

Code:

---

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

use LWP::UserAgent; # Client html   my $ua = LWP::UserAgent->new; $ua->agent("MyApp/0.1 "); my $http = HTTP::Request->new(GET => 'http://www.google.fr'); my $res = $ua->request($http); if ($res->is_success){ print $res->content; } else{ print $res->status_line; } exit 0;

---

pour le post cé quasi pareil :

Code:

---

1 2 3 4 5 6

$http = HTTP::Request->new(POST => 'www.siteWeb.com'); $http->content_type('application/x-www-form-urlencoded'); $http->content("param1=val1&param2=val2&param3=val3"); $res = $ua->request($http); return $res->status_line if (!$res->is_success);

---

voilà, amuse toi bien.
aucun package à install normalement. (libwww-perl est déjà install il me semble)
Rq : si tu veux grabber des https (SSL), il te faut Crypt-SSLeay
Si tu as une version 5.8 :
ppm>install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
Sinon (versions 5.6)
ppm>install http://theoryx5.uwinnipeg.ca/ppmpack...ypt-SSLeay.ppd

---

bizare qu'il ne reconnaisse pas get() ?!
C'est une fonction importée d'office avec LWP::Simpe

Essai de l'importer explicitement:

Code:

---

1 2 3 4 5 6

use LWP::Simple qw(get getstore); use strict; use warnings;   print get("http://www.google.fr");

---

Citation:

---

Envoyé par piotr

Merci pour ta réponse, malheureusement j'ai le message d'erreur "can't locate object method "new" via package "LWP:: useragent" (perhaps you forgot to load "LWP::useragent"?
en faisant une recherche ppm search lwp ,j'ai plusieurs modules à ma disposition:

LWP-UserAgent-determined
LWP-UserAgent-iTMS_client
LWP-UserAgent-Proxyany
LWP-UserAgent-TWiki-TWikiGuest
LWP-UserAgent-WithCache

je ne sais pas trop lequel employer

---

bizarre... j't'ai fait un copier/coller d'un script qui marche nickel chez me sous Xp et Linux (perl 5.6 et 5.8)..
met les parenthèses maybe :s sinon des attributs...
look here ou here
++

Merci les gars pour m'avoir permis d'avancer :le script fonctionne!!

Citation:

---

Envoyé par pospos

bizare qu'il ne reconnaisse pas get() ?!
C'est une fonction importée d'office avec LWP::Simpe

Essai de l'importer explicitement:

Code:

---

1 2 3 4 5 6

use LWP::Simple qw(get getstore); use strict; use warnings;   print get("http://www.google.fr");

---

---

met un tag resolu dans ce cas.

Merci