Esteemed Monks
I have written a script to query the Amazon Web Service. I use Net::Amazon to process requests but particularly searching for a keyword takes exceptionally long. My script calls a subroutine that looks like this:
sub search4Keyword {
my $keyword = shift;
my $request = Net::Amazon::Request::Keyword->new (
keyword => $keyword,
mode => 'books',
);
my $response = $ua->request ($request);
$response;
}
This can sometimes take more than a minute, though I experienced that searching for an ASIN is usually quicker.
Does any of you experience similar problems and does anyone have a solution?