1#!/usr/bin/perl 2############################################################ 3# all keyword 4# Christopher Boumenot <boumenot@gmail.com>, 2006 5############################################################ 6 7use strict; 8use warnings; 9 10use Net::Amazon; 11use Net::Amazon::Request::All; 12 13#use Log::Log4perl qw(:easy); 14#Log::Log4perl->easy_init($DEBUG); 15 16die "usage: $0 keyword\n(use Sandler as an example)\n" unless defined $ARGV[0]; 17 18my $ua = Net::Amazon->new( 19 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 20 token => $ENV{AMAZON_TOKEN}, 21 secret_key => $ENV{AMAZON_SECRET_KEY}, 22); 23 24my $req = Net::Amazon::Request::All->new( 25 all => $ARGV[0], 26); 27 28my $resp = $ua->request($req); 29 30if($resp->is_success()) { 31 print $resp->as_string, "\n"; 32} else { 33 print $resp->message, "\n"; 34} 35