Ce module permet d'exécuter une requête HTTP et récupérer les données:
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => "http://us.expasy.org/uniprot/Q8X0Z6(...)";
my $res = $ua->request($req);
if ($res->is_success) {
# le contenu de la page se trouve dans $res->content
}
# LWP::UserAgent
Posté par netsurfeur . En réponse au message Recuperer une valeur en Perl sur un site. Évalué à 2.
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => "http://us.expasy.org/uniprot/Q8X0Z6(...)";
my $res = $ua->request($req);
if ($res->is_success) {
# le contenu de la page se trouve dans $res->content
}