Discussion :

[piotr]

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

[ramislebob]

Code :

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

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 :

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

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

[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

Code :

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

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 :

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

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

[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 :

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

1
2
3
4
5
6
 
use LWP::Simple qw(get getstore);
use strict;
use warnings;
 
print get("http://www.google.fr");

[ramislebob]

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
++

[piotr]

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

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

Essai de l'importer explicitement:

Code :

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

1
2
3
4
5
6
 
use LWP::Simple qw(get getstore);
use strict;
use warnings;
 
print get("http://www.google.fr");

[djibril]

met un tag resolu dans ce cas.

Merci