先日の続きと言うことで、さっそく作ってみました。

#!/opt/local/bin/perl
# === Libraries ===
use strict;
use warnings;
use LWP::UserAgent;
use URI::Amazon::APA;
use XML::Simple;
use YAML::Syck;
# === 起動時の処理 ===
exit if ( @ARGV ==  );
exit unless ( $ARGV[] =~ /\d\d\d\d\d\d\d\d\d\d\d\d\d/ );
# === Main part ===
my $u = URI::Amazon::APA->new('http://ecs.amazonaws.jp/onca/xml');
$u->query_form(
Service     => 'AWSECommerceService',
Operation   => 'ItemLookup',
ItemId      => shift || '9784798118925',
IdType      => 'EAN',
SearchIndex => 'Books',
);
$u->sign(
key    => キー,
secret => 秘密鍵,
);
my $ua = LWP::UserAgent->new;
my $r  = $ua->get($u);
die "Item not found.\n"
if ( not( exists( XMLin( $r->content )->{Items}->{Item}->{ASIN} ) ) );
print("[asin:");
print XMLin( $r->content )->{Items}->{Item}->{ASIN};
print(":title]\n");

実行例

~/bin on simoom634 [535] $: ./access_amazon.pl 9784798118926
Item not found.
~/bin on simoom634 [536] $: ./access_amazon.pl 9784798118925
[asin:4798118923:title]

「amazon」に関連する最近のエントリ

• AmazonのWebサービスを使ってみる – 武蔵の日記
• 武蔵の日記
• 本日購入した本 – 武蔵の日記
• KOKIA∞AKIKO~balance~ – 武蔵の日記

最新WebサービスAPIエクスプロ-ラ ~Amazon、はてな、Google、Yahoo! 4大Webサービス完全攻略

• 作者: Software Design 編集部
• 出版社/メーカー: 技術評論社
• 発売日: 2005/09/23
• メディア: 大型本
• 購入: 11人 クリック: 511回
• この商品を含むブログ (112件) を見る