Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 27 lines (22 sloc) 0.463 kB
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Net::Amazon;
use Data::Dumper;
my $amz = Net::Amazon->new(
associate_tag => $ENV{AMAZON_ASSTAG},
token => $ENV{AMAZON_KEY},
secret_key => $ENV{AMAZON_SECRET},
) or die;
my $resp = $amz->search(
mode => 'books',
title => 'Programming Perl',
year => 1991,
);
for ($resp->properties) {
say $_->Asin, ' ',
$_->title, ' ',
$_->year, ' ',
join ', ', $_->authors;
}
Jump to Line
Something went wrong with that request. Please try again.