- 论坛徽章:
- 0
|
LWP HTTP::FORM 問題..
請問對無名小站的密碼怎麼做?
怎做也是 password incorrect ( 密碼對的.. )
use URI::URL;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
use HTTP::Request::Form;
use HTTP::Cookies;
use HTML::TreeBuilder 3.0;
my $ua= LWP::UserAgent->new;
$ua->agent('Mozilla/5.0');
$ua->cookie_jar(HTTP::Cookies->new(file=>".cookies.txt"));
my $url= url 'http://www.wretch.cc/album/album.php?id=sexygirl5824&book=14';
my $res=$ua->request(GET $url);
my $tree = HTML::TreeBuilder->new;
$tree->parse($res->content);
$tree->eof();
$head=$res->header('Set-Cookie');
print $head."\n";
my @forms=$tree->find_by_tag_name('FORM');
my $nf=HTTP::Request::Form->new($forms[0],$url);
$nf->field('passwd','2008');
my $resp = $ua->request($nf->press("submit"));
$head=$res->header('Set-Cookie');
print $head."\n";
#print $resp->content if $resp->is_success;
$in='log.html';
open(IN, ">$in");
print IN $resp->content;
close(IN);
print $nf->dump; |
|