ハマクモ (注：サービス終了) での
商品画像サイズ調整に使っている仕掛けを
Perl モジュールにしたので公開。

アマゾン画像によるタグクラウド(Tag Cloud)なのでアマゾンクラウド
(Amazon Cloud)。 Asamasi-AmazonCloud-0.1.tar.gz として、
<http://ta2o.net/tools/pm/src/> に置いておきます。
興味のある方はどうぞ。

bin/sample.pl の出力結果をブラウザで見たらこんな感じ：


画像サイズは1〜5の五段階で指定します。AWSの登録が必要です
(SubscriptionID)。アソシIDも適宜変更。
使い方の一例。詳細は bin/sample.pl, test.pl, perldoc を参照。

use Asamasi::AmazonCloud;
my $ac = Asamasi::AmazonCloud->new
    (aid => "137439-22",
     subscriptionid => "1234567890ABCDEFGHIJ", 
     cache => "/var/tmp/cache-amazon",
     type => "medium",
);

my @azinfo = 
    (['4047915068', 1], ['4839919933', 3], ['4887188625', 4],
     ['B000C5NVPY', 1], ['4480085459', 1], ['4798110523', 5],
     ['B000E6FYFG', 2], ['4798110671', 2]);

for my $az (@azinfo) {
    print $ac->create_image(asin => $az->[0], size => $az->[1]);
}