list_nodeid.pl

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

my $conf = pit_get('amazon.co.jp');

my $lookup = BrowseNodeLookup->new($conf);

recur('465392');

sub recur {
    my $nodeid = shift;
    my $res = $lookup->lookup($nodeid, 'BrowseNodeInfo');
    for ( @$res ) {
        printf("%s\t%s\n", $_->{BrowseNodeId}, $_->{Name});
        recur($_->{BrowseNodeId});
    }
}