perl - URI::Amazon::APA released!

そんなわけで、作りました。

• /lang/perl/URI-Amazon-APA/trunk - CodeRepos::Share - Trac
• dankogai's p5-uri-amazon-apa at master - GitHub
• @CPAN (coming soon)

Amazon アソシエイト・プログラム（アフィリエイト） 公式ブログ: Amazon アソシエイト Web サービスの名称変更および署名認証についてのお知らせ

名称変更にともない、Product Advertising API にリクエストを送信いただく都度、認証のための電子署名を含めていただくことが必要になります。この変更は、2009年5月11日より3ヶ月の間の移行期 間の後、2009年8月15日には、Product Advertising API へ送信されるリクエストは全て認証されることとなり、認証されない場合、リクエストは処理されなくなります。Product Advertising API へのリクエストに署名認証を含めるための簡単な方法については、こちらの開発者向けガイドをご覧ください。

使い方は、すこぶる簡単です。以下、実地テストに使ったScriptを、keyとsecretのみ伏せて。

#!/usr/local/bin/perl
use strict;
use warnings;
use URI::Amazon::APA;
use LWP::UserAgent;
use XML::Simple;
use YAML::Syck;

my $u = URI::Amazon::APA->new('http://webservices.amazon.com/onca/xml');
$u->query_form(
    Service     => 'AWSECommerceService',
    Operation   => 'ItemSearch',
    Title       => shift || 'Perl',
    SearchIndex => 'Books',
);
$u->sign(
    key    => $key,
    secret => $secret,
);

my $ua = LWP::UserAgent->new;
my $r  = $ua->get($u);
print $r->status_line, "\n", YAML::Syck::Dump( XMLin( $r->content ) );

要はURIオブジェクトにsignメソッドだけ追加してやるというモジュールです。Timestampなども、省略されていれば自動生成してくれます。

[を] アマゾンAPIを使うのに2009年8月15日から認証が必要になるらしい

自分の ID でやってみたけど、認証 URL はアクセス失敗した。

もう一度試してみて下さい。注意点としては、Digest::SHA::hmac_sha256_base64()の出力はそのままでは使えなくて、=でpadしなければならないということがあります。

Enjoy!

Dan the Perl Monger

追記:

• AmazonのAPIで認証が必要になったのでPerlで対応したよ - (ﾟ∀ﾟ)o彡 sasata299's blog

うーん、車輪の再発明。

Comments

日本語で検索するとエラーになったので、以下のようにすると正常に動くようになりました。

3a4
> use utf8;
22c23,27
< my %q = map { $_ => uri_unescape( $eq{$_} ) } keys %eq;
---
> my %q = map {
> my $value = uri_unescape( $eq{$_} );
> utf8::decode( $value );
> $_ => $value;
> } keys %eq;
27c32
< my $sq = join '&', map { $_ . '=' . uri_escape( $q{$_} ) } sort keys %q;
---
> my $sq = join '&', map { $_ . '=' . uri_escape_utf8( $q{$_} ) } sort keys %q;

Posted by keroyonn at 2009年05月15日 09:34

keroyonnさん、
報告ありがとうございます。patchどおりではないのですが、修正の上$VERSION++しておきました。
Dan the Author Thereof

Posted by 弾 at 2009年05月23日 04:34

「反貧困」湯浅誠　岩波新書を読みましょう。話はそっからです。

Posted by 「反貧困」湯浅誠　岩波新書を読みましょう。話はそっからです。 at 2009年05月26日 03:52

使わせていただこうとしたのですが、どうもシングルクォートを含むキーワードでSigunatureが合わないようです。

uri_escape_utf8ではシングルクォートをスルーしてるみたいですが、%27にエンコードされた方がいいみたいですね。

Posted by kisara at 2009年06月02日 21:56

私の環境だけかもしれませんが、sub sign でエラーが出るので下記のようにしたら無事通るようになりました。

use URI::Escape;
use URI::Escape qw(uri_escape_utf8);

やっと走ったと思ったら、今度は日本語で検索したらエラーになります。

v 0.2を使用しているのですが、考えられる対策があればご教示いただけると幸いです。

Posted by あびる at 2009年06月05日 16:06

こんにちは、


use utf8;
use feature qw(say);
use URI::Amazon::APA;
my $u = URI::Amazon::APA->new('http://ecs.amazonaws.jp/onca/xml');
$u->query_form( Title => '日本語' );
say $u->query;
$u->sign(key => $key, secret => $secret);
say $u->query =~ m/(Title=.+)/ ? $1 : '';


$ perl test.pl
Title=%E6%97%A5%E6%9C%AC%E8%AA%9E
Title=%C3%A6%C2%97%C2%A5%C3%A6%C2%9C%C2%AC%C3%A8%C2%AA%C2%9E

decode_utf8 の is_utf8 のチェックが邪魔しちゃってるのでしょうか？

- my %q = map { $_ => decode_utf8( uri_unescape( $eq{$_} ) ) } keys %eq;
+ my %q = map { $_ => Encode::decode('utf8', uri_unescape( $eq{$_} ) ) } keys %eq;

Posted by u at 2009年07月23日 19:12