概要: perl の Net::Amazon でアソシエイト ID を指定する方法。
perl の Net::Amazon でアソシエイト ID を指定する方法が分からなくて、 ソース読んでやっと分かったのでメモ。
ぶっちゃけ結論から言うと、Net::Amazon::Request::*系のオブジェクトを生成するときに、
コンストラクタの引数で直接 ECS4 のパラメーターを指定すれば OK。
要するにこんな感じ。
use Net::Amazon;
use Net::Amazon::Request::ASIN;
my $token = 'XXXXXXXXXXXXXXXXXXXX';
my $locale = 'jp';
my $ua = Net::Amazon->new( token => $token, locale => $locale );
my $req = Net::Amazon::Request::ASIN->new( asin => 4061826263, AssociateTag => 'example-22' );
my $res = $ua->request( $req );
AssociateTag以外のパラメータも上記の方法で指定できるみたい。
が、Net::Aamzon が内部でいじってるパラメーターを指定するとおかしくなるかもしれない。
まあもっと泥臭いコードを書かなきゃいけないのかと思ったら以外とシンプルに書けた。
まあこれで Net::Amazon を使ったアフィリエイトサイトとか作れそうです。 多分当分はやらないだろうけど。
#FIXME
