古い記事
ランダムジャンプ
新しい記事
アマゾンの ASIN から JAN コード (EAN コード) を取得するには、単にアマゾンの Product Advertising API でASIN を指定して ItemLookup した結果の EAN 要素を見れば OK。

動作確認用プログラム:
#!/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

PAPAXY_URL についてはこちら:
- [を] Perl による自分用 Amazon Product Advertising API proxy「PAPAXY」[2009-08-01-1]
この記事に言及しているこのブログ内の記事