Net::Amazon を使ってみる
#!/usr/bin/perl use strict; use warnings; use utf8; use Net::Amazon; use Encode; my $query = shift; # DOS プロンプトからの入力のため # Shift-JIS から UTF-8に変換している $query = decode('shiftjis', $query); my $client = Net::Amazon->new( token => 'YOUR_ACCESS_KEY_ID', # Access Key ID を入力 locale => 'jp', ); my $response = $client->search( keyword => $query, mode => 'dvd', ); if ($response->is_success) { for ($response->properties) { # DOS プロンプトに出力するため # UTF-8 から Shift-JIS に変換している print encode('shiftjis', $_->ProductName), "\n"; # 商品名を取得する } } else { die "Error:", $response->message, "\n"; }
作って学ぶ、今どきのWebサービス:第5回 Amazon Webサービスを料理してみる (3/3)を参考にした。
他にもここを参照。Net::Amazon のメモとAmazon ECSでISBNの一覧を取得する方法(取得する結果のソート内容がわかる)。
テスト結果
perl amazon.pl ガンダム 機動戦士ガンダム00 セカンドシーズン 1 [DVD] 機動戦士ガンダム00 5 (Blu-ray Disc) 機動戦士Zガンダム メモリアルボックス Part.I (Blu-ray Disc) 機動戦士ガンダム00 6 (Blu-ray Disc) 機動戦士ガンダム00 セカンドシーズン 1 (Blu-ray Disc) 機動戦士ガンダム00 セカンドシーズン 2 [DVD] 機動戦士ガンダム00 7(Blu-ray Disc) 機動戦士ガンダム MSイグルー2 重力戦線 2 [DVD] 機動戦士Zガンダム メモリアルボックス Part.II(Blu-ray Disc) 機動戦士ガンダム00 セカンドシーズン 2 (Blu-ray Disc) 機動戦士ガンダム MSイグルー2 重力戦線 1 あの死神を撃て! [DVD] 機動戦士ガンダム MSイグルー2 重力戦線 2 (Blu-ray Disc) 機動戦士ガンダム00 4 (Blu-ray Disc) 機動戦士ガンダム 劇場版メモリアルボックス [DVD] 機動戦士ガンダム00 3 (Blu-ray Disc) 機動戦士ガンダム00 1 (Blu-ray Disc) 機動戦士ガンダム00 2 (Blu-ray Disc) 機動戦士ガンダム MSイグルー2 重力戦線 1 あの死神を撃て! (Blu-ray Disc) 機動戦士ガンダム 逆襲のシャア (Blu-ray Disc) 機動戦士ガンダム00 7 [DVD] 玉ニュータウン2 [DVD] 機動戦士ガンダム00 6 [DVD] 機動戦士ガンダム00 5 [DVD] 機動戦士ガンダム00 4 [DVD] 機動戦士ガンダム00 2 [DVD] 機動戦士ガンダム00 3 [DVD] 機動戦士ガンダム 逆襲のシャア [DVD] 機動戦士ガンダム00 (1) [DVD] 機動戦士ガンダムF91 (Blu-ray) 機動戦士ガンダムDVD-BOX 1 特典フィギュア付(完全初回限定生産) 機動戦士ガンダム 0080 ポケットの中の戦争 vol.1 [DVD] 機動戦士ガンダム 0080 ポケットの中の戦争 vol.2 [DVD] 機動戦士ガンダム F91 [DVD] 新機動戦記ガンダムW メモリアルボックス版 Part.II (初回限定版) [DVD] 新機動戦記ガンダムW メモリアルボックス版 Part.I (初回限定版) [DVD] 機動戦士ガンダムSEED DESTINY 13 [DVD] 機動戦士Zガンダム -星を継ぐ者- [DVD] 新機動戦記ガンダムW メモリアルボックス版 Part.III(初回限定版) [DVD] 機動戦士ガンダムSEED DESTINY 11 [DVD] 機動戦士ガンダムDVD-BOX 2 機動戦士ガンダム MSイグルー-1年戦争秘録- 2 遠吠えは落日に染まった [DVD] 機動戦士ZガンダムIII -星の鼓動は愛- [DVD] 機動戦士ガンダム MSイグルー -黙示録0079- 3 雷鳴に魂は還る [DVD] 機動戦士ガンダムSEED 12 [DVD] 機動戦士ガンダム MSイグルー-1年戦争秘録- 3 軌道上に幻影は疾る [DVD] 機動戦士ZガンダムII -恋人たち- [DVD] 機動戦士ガンダムSEED DESTINY スペシャルエディション完結編 自由の代償 [DVD] 機動戦士Zガンダム Part III ― メモリアルボックス版 [DVD] 機動戦士ガンダムSEED 13<最終巻> [DVD] 機動戦士Zガンダム Part I ― メモリアルボックス版 [DVD]