Net::Amazon question

[Andrej Kastrin]

Dear all,

script below use Net::Amazon module to parse similar items (Customer who
bought this also bought...) from Amazon. But there are only 10 item
displayed in the result set. I try with Net::Amazon 0.35 and 0.43
respectively, but the result is always the same. What's wrong with my
code?

Thanks in advance for your help.

Best, Andrej


### CODE ###

use warnings;
use strict;
use Net::Amazon;

my $ua = Net::Amazon->new(token => "0YH16NXE2QXCTD99MBR2", max_pages =>
4,);
my $response = $ua->search(similar => "0439784549");
if($response->is_success()) {
    print $response->as_string(), "\n";
} else {
    print "Error: ", $response->message(), "\n";
}





-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/