「Amazon Product Advertising API」 にリクエストする Perl モジュールを書いてみた

「Amazon アソシエイト Web サービス」が 2009年8月15日で終了して「Product Advertising API」（2009年5月11日より提供開始）に置き換わるってんで、とりあず「Product Advertising API」にリクエストを投げる Perl モジュールを書いてみました。

と言っても、ホントにリクエストを投げるだけで、帰ってきた XML をそのまま返します。

まぁね、サービスが変わってもレスポンスの XML は変わらないようなので、「パースするところは今まで通りでいいよね」というわけで手抜きです。

ダウンロードはこちらのページからお願いします。

使い方は以下な感じです。

use AmazonPAPI; # オブジェクトの作成 # 引数には各要素をハッシュノリファレンスにまとめて渡します。 my $aws = new AmazonPAPI({               'AWSAccessKeyId' => 'Your Access Key Id',    # アクセスキー　　（必須）               'AWSSecretKey'   => 'Your Secret Key',       # シークレットキー（必須）               'AssociateTag'   => 'Your Associate Tag',    # アソシエイトID　（任意）               'SiteName'       => 'webservices.amazon.com' # サーバー名　　　（任意 デフォルトは ecs.amazonaws.jp ）             }); # リクエストの発行 #     第１引数には Operation を指定します。 #     第２引数はその他のパラメータをハッシュのリファレンスにまとめてて渡します。 my $xml = $aws->request('ItemLookup',{                         'ItemId'        => '0679722769',                         'ResponseGroup' => 'ItemAttributes,Offers,Images,Reviews',                        });

Enjoy!

ダウンロード
　・AmazonPAPI.pm

Comments

[あびる]

ItemSearchでKeywordsに日本語を入れると、Keywordsが文字化けするっぽいです。

[夢界]

ご指摘、ありがとうございました。

修正版をＵＰしておきましたので、ご利用ください。

[あびる]

すばやい対応ありがとうございます。

正常な動作を確認しました！

助かります！

[あびる]

細かいことなんですが、こんなエラーログが出てくるようです。
($keyの宣言がで初期化されてない？)

Use of uninitialized value in concatenation (.) or string at lib/AmazonPAPI.pm line 144.

[夢界]

ご連絡、ありがとうございます。

こちらで検証したところ、request メソッドに渡す引数のハッシュ（のリファレンス）において、キーは設定されているものの値が未定義になっている場合に、ご指摘のエラーになります。

お手数ですが、引数の内容についてご確認いただけませんでしょうか。

もし引数に問題が無いようでしたら、申し訳ございませんがどのような引数をお渡しか、お教え下さい。
こちらでも検証してみたいと思います。

よろしくお願いします。