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 のメモ