Не выходит скачать сайт:
| Код |
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Encode qw(decode encode);
my $site = 'https://www.exploit-db.com/webapps/?order_by=date_published&order=desc&pg=1';
my $cookie_jar = HTTP::Cookies->new(
file => 'lwp_cookies.txt',
autosave => 1,
ignore_discard => 1,
);
my $ua = LWP::UserAgent->new(
ssl_opts => { verify_hostname => 1 },
cookie_jar => $cookie_jar,
);
#$ua->timeout(10);
#$ua->agent('Opera/9.62 (Windows NT 6.0; U; ru) Presto/2.1.1');
my $response = $ua->get($site);
if ($response->is_success) {
my $html = encode("cp866", $response->decoded_content);
while( $html =~ m/download/ig ) {
print "download;";
}
}
else {
die $response->status_line;
}
|
Отвкт такой:
| Код |
403 Forbidden at db.pl line 31.
|
Куда копать, что делать?
Кукисы складываются. |