1
2
3
4
5
6
7
8
9
10
11
12
13
use LWP::UserAgent;
my $start = 'http://www.amazon.com/product-reviews/B007M6EYU2/ref=cm_cr_pr_top_recent?ie=UTF8&showViewpoints=0&sortBy=bySubmissionDateDescending';
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $req = HTTP::Request->new(GET => $start);
my $res = $ua->request($req);
if ($res->is_success) {
my $website = $res->content;
open OUT,">test.html";
print OUT "$website\n";
close OUT;
}
my $res = $ua->request($req);
$req->headers->header('User-Agent', 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.17) Gecko/20080829 Firefox/2.0.0.17');
2013-03-05T16:46:19 GwenDragonAmazon hat eben keine Lust, sich von LWP-Perlskripten nerven zu lassen, um unnötig Inhalte zu generieren.
Und MyApp/99.88 wäre oder Bradwosch/3.0 auch sowas von falsch. ;)
2013-03-05T16:46:19 GwenDragonWer sinnvolle Inhalte haben will, sollte einen neueren Browser als UA verwenden.