#!/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