1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| #! C:\Perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTML::Form;
# initialisation de l'agent
print "entrer l'url a telecharger : ";
my $url = <>; chomp ($url);
my $ua =
LWP::UserAgent->new(
agent => 'Mozilla/4.73 [en] (X11; I; Linux 2.2.16 i686; Nav)',
cookie_jar => HTTP::Cookies->new(
file => 'cookies.txt',
autosave => 1 )
);
# création de la requête
my $req = HTTP::Request->new( GET => $url );
# exécute la requête et reçoit la réponse
my $res = $ua->request($req);
die $res->status_line if not $res->is_success;
# parse le document a la recherche de formulaire
my $form = HTML::Form->parse( $res->content, $url );
my @inputs = $form->inputs();
#affiche la page web $url
print $ua->request($req)->as_string; |
Partager