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

Amazon の Product Advertising API をPerl で叩かないといけないことがあったのでその時のことをまとめておく。

初めに、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 はアクセスキーを入れてもらえば問題ないです。