 |
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use XML::Simple;
my $url = "http://webservices.amazon.co.jp/onca/xml?Service=AWSECommerceService&Operation=ItemLookup&
AWSAccessKeyId=12345678901234567890&ItemId=";
my $asin = '4756146759';
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
my $response = $ua->get($url.$asin);
if ($response->is_success) {
my $xml = XMLin($response->content, ForceArray => 1);
my $title = $xml->{Items}->[0]{Item}->[0]{ItemAttributes}->[0]{Title}->[0];
print $title;
}
|
|