アキラのＩＴメモ：Net::Amazonの使用

Net-Amazon-0.38をダウンロード、設置、使用してみたときのメモです。説明書に書かれていることと若干違う部分があって結構はまりました。こういうのは結局ソースを読むのが一番早いのかな。

はまったところとしては例えば、画像のURLを取得するメソッドはドキュメントではImageUrlLarge()、ImageUrlMedium()、ImageUrlSmall()なのですが実際はLargeImageUrl()、MediumImageUrl()、SmallImageUrl()でした。また、商品名を表すProductName()もなくてTitle()でとれました。他にも、Amazon.pmの上部でロケールの指定ができるのですが、ここでjpと書いておいたほうが良いかもしれません。

動作サンプルとしては、以下のようなコードで簡単に動作確認ができると思います。多分。

use Net::Amazon;

my $ua = Net::Amazon->new(token => 'AMZN_TOKEN', locale => 'jp');

my $response = $ua->search(asin => '01234567');
#my $response = $ua->search(blended => "Perl");

if(not $response->is_success()) {
  print "Error: ", $response->message(), "\n";
  exit;
}
print $response->as_string(), "\n";

foreach my $item ($response->properties()) {
  print "Title: ", $item->Title(), "\n";
  print "Catalog: ", $item->Catalog(), "\n";
  print "LargeImageUrl: ", $item->LargeImageUrl(), "\n";
  print "MediumImageUrl: ", $item->MediumImageUrl(), "\n";
  print "SmallImageUrl: ", $item->SmallImageUrl(), "\n";
  print "OurPrice: ", $item->OurPrice(), "\n";

  my $review = $item->review_set;
  if ($review->total_reviews) {
    print "AverageCustomerRating: ", 
      $review->average_customer_rating, "\n";
    foreach my $rev ($review->reviews) {
      print "Rating: ", $rev->rating, "\n";
      print "Summary: ", $rev->summary, "\n";
      print "Comment: ", $rev->comment, "\n";
     }
  }
}

なお、こことこことここを参考にしました。このモジュールはいろいろ面白そうなので、キャッシュの使い方も含めてもう少しいろいろ触ってみる必要がありそうです。まあ、問題はこれを使って何をしようかということなんですが。。

コメントを投稿