topsellers_in_browsenode.pl

#!perl
use strict;
use warnings;
use lib 'lib';
use Config::Pit;
use BrowseNodeLookup;
binmode(STDOUT, ':utf8');

my $nodeid = shift;
my $conf = pit_get('amazon.co.jp');
my $lookup = BrowseNodeLookup->new($conf);

my $res = $lookup->lookup($nodeid, 'TopSellers');
for (@$res) {
    my $info = $_->{detail};
    # customize for yourself!
    print join("\t",
        $info->asin,
        $info->title,
        join(', ', $info->authors),
        $info->publisher,
        $info->ReleaseDate,
        $info->isbn,
        $info->ImageUrlLarge,
        $info->SalesRank,
    ), "\n";
}