#!/usr/bin/perl
###########################################
# rate_limit
# Mike Schilli, 2004 (m@perlmeister.com)
# Test rate-limiting
# rate_limit 0201360683
###########################################
use warnings;
use strict;
use Net::Amazon;
use Net::Amazon::Request::ASIN;
use Log::Log4perl qw(:easy);
my $conf = q(
log4perl.category.Net.Amazon = WARN, Screen
# To disable the rate limiting messages
#log4perl.category.Net.Amazon.RateLimit = FATAL, Screen
#log4perl.additivity.Net.Amazon.RateLimit = 0
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %F{1} %L> %m %n
);
Log::Log4perl::init(\$conf);
my $ua = Net::Amazon->new(
token => 'YOUR_AMZN_TOKEN',
);
die "usage: $0 asin\n(use 0201360683 as " .
"an example)\n" unless defined $ARGV[0];
my $req = Net::Amazon::Request::ASIN->new(
asin => $ARGV[0],
);
for(1..3) {
# Response is Net::Amazon::ASIN::Response
my $resp = $ua->request($req);
if($resp->is_success()) {
print $resp->as_string(), "\n";
} else {
print "Error: ",
$resp->message(), "\n";
}
}