Net::Amazon
Web::ScrapperでやっていたAmazonのクロールを置き替えることにした。
やってみると意外と簡単でサクサク動いてくれました。
以下、ISBN-10で検索のサンプル
#!/usr/bin/env perl use strict; use utf8; use Encode; use Net::Amazon; use Data::Dumper; # amazon my $access_key_id = "your_access_key_id"; my $secret_access_key = "your_secret_access_key"; my $locale = "jp"; # isbn-10 my $asin = "4091816916"; my $aws = Net::Amazon->new( token => $access_key_id, secret_key => $secret_access_key, locale => $locale ); my $response = $aws->search(asin=>$asin); if($response->is_success()){ my $book = $response->properties(); =pod for my $key (%$book){ print $key."=".$book->{$key}."\n"; } =cut print $book->{ImageUrlMedium}."\n"; #isbn-13 print $book->{ean}."\n"; print encode('utf-8',$book->{title})."\n"; my @authors = $book->{authors}; print encode('utf-8',$authors[0]->[0])."\n"; print encode('utf-8',$book->{publisher})."\n"; print $book->{year}."\n"; print $book->{RawListPrice}."\n"; }
これからもお世話になりそうです。
ref:
Net::Amazon - search.cpan.org
[を] Net::Amazon のメモ