 

 

 

 
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $asin = shift @ARGV;
my $AKI = "(AWSAccessKeyId)";
my $url = qq(PAPAXY_URL)
    .qq(?Service=AWSECommerceService&AWSAccessKeyId=$AKI)
    .qq(&Operation=ItemLookup&ResponseGroup=ItemAttributes&ItemId=$asin);
my $cont = get($url) || "";
if ($cont =~ /<EAN>(.+?)</) {
    my $ean = $1;
    print "$ean\n";
}
% ./asin2ean.pl B0037NX6HQ 4960999668628
