上京エンジニアのお話

田舎から上京してエンジニアとして活躍する毎日を綴ります

Perl で Amazon の Product Advertising API を叩いた話

AmazonProduct Advertising APIPerl で叩かないといけないことがあったのでその時のことをまとめておく。

初めに、cpan に何かモジュールがあるだろうと漁ってみたところ・・・
Net::Amazon metacpan.org

あたりが良さそうだったので、とりあえず入れてみた。

cpanm Net::Amazon  

早速叩いてみた。
Product Advertising API 用のアカウントを事前に作成する必要があります

今回は、ISBN を元に商品を取得したのでソースはこんな感じ。

#!/usr/bin/perl

use strict;
use warnings;

use Net::Amazon;
use Data::Dumper;

my $ua = Net::Amazon->new(
    associate_tag => '%ASSOCIATE_TAG%',
    token         => '%TOKEN%',
    secret_key    => '%SECRET_KEY%',
    locale        => 'jp',
);

my $item = $ua->search(
    isbn => '9784873110967'
);

unless ($item->is_success()) {
    print "$item->message() \n";
    exit;
}

warn Dumper $item;

1;

はい、めっちゃ簡単でした。
token はアクセスキーを入れてもらえば問題ないです。