1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/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(
token => 'MY_AMAZON_TOKEN',
);
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";
}
|
