#!/usr/bin/perl ###################################################### # Browse node search # Jackie Hamilton <kira@cgi101.com>, 2003 # Mike Schilli <na@perlmeister.com>, 2003 ###################################################### use warnings; use strict; use Net::Amazon; #use Log::Log4perl qw(:easy); #Log::Log4perl->easy_init({level => $DEBUG, file => "out"}); die "usage: $0 node mode [keywords]\n". "(use '4025' 'books' 'perl' as an example)\n" unless defined $ARGV[1]; my $ua = Net::Amazon->new( associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, token => $ENV{AMAZON_TOKEN}, secret_key => $ENV{AMAZON_SECRET_KEY}, ); my $resp = $ua->search( browsenode => $ARGV[0], mode => $ARGV[1], defined $ARGV[2] ? (keywords => join('', @ARGV[2,])) : (), ); die $resp->message() unless $resp->is_success(); for ($resp->properties) { unless($_->can("title")) { warn "Not a book: ", $_->as_string(); next; } print $_->Asin(), " ", $_->title(), " ", $_->OurPrice(), "\n"; }