Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 28
+12 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
use LWP::Simple;
my $url="http://www.amazon.de/gp/offer-listing/B001BJGOTK";
my $doc =get($url);
open DATEI, ">","resultat.txt";
print DATEI $doc;
close DATEI;
![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+4 replies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
# Create a request
my $req = HTTP::Request->new(POST => 'http://www.amazon.de/gp/offer-listing/B001BJGOTK/ref=dp_olp_new?ie=UTF8&condition=new');
$req->content_type('application/x-www-form-urlencoded');
$req->content('query=libwww-perl&mode=dist');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}
QuoteIch will Amazon nicht spidern oder sonstwas, das is immerhin ne öffentlich zugängliche seite.Wieso Amazon API´s wenns auch einfach geht :D
2009-06-23T11:17:54 everydayimhustlinIch will Amazon nicht spidern oder sonstwas, das is immerhin ne öffentlich zugängliche seite.Wieso Amazon API´s wenns auch einfach geht :D
Net::Amazon an.
+3 replies
+2 replies
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
