1#!/usr/bin/perl 2########################################### 3# keyword - search by keyword 4# keyword what_to_search_for mode 5# Mike Schilli <mschilli1@aol.com>, 2003 6########################################### 7 8use strict; 9use warnings; 10 11use Net::Amazon; 12use Net::Amazon::Property; 13use Net::Amazon::Request::Keyword; 14 15die "usage: $0 keyword what mode\n(use " . 16 "'perl power'/books as an example)\n" 17 unless defined $ARGV[1]; 18 19my $ua = Net::Amazon->new( 20 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 21 token => $ENV{AMAZON_TOKEN}, 22 secret_key => $ENV{AMAZON_SECRET_KEY}, 23 max_pages => 5, 24); 25 26my $req = Net::Amazon::Request::Keyword->new( 27 keyword => $ARGV[0], 28 mode => $ARGV[1], 29); 30 31 # Response: Net::Amazon::Keyword::Response 32my $resp = $ua->request($req); 33 34for ($resp->properties) { 35 print $_->as_string()."\n"; 36} 37