[を]CHALOW Search: date:2009-08-01

2 件見つかりました。

チリモン積もれば山となる

2009-08-01-2 [生物]

チリメンジャコに含まれている小さな生き物をチリメンモンスター、略してチリモンと呼んでいるみたい。
イカとかタコとかエビとかカニとかかわいいのがいっぱい混じってるよね。

- チリモン:デイリー旬ワード
http://daily-words.com/archives/792108.html

この「チリモン図鑑」、写真入りで詳しくて良いですね。

- チリモン図鑑
http://k-tomo.web.infoseek.co.jp/chirimon/chirimonzukan.htm

あと、チリモンの本も出ていますね。

■きしわだ自然友の会 / チリモン博物誌
 [楽天で探す]

- [を] しらすに混じっている小さな生き物をレポートするブログ[2008-05-07-4]

Perl による自分用 Amazon Product Advertising API proxy「PAPAXY」

2009-08-01-1 [Programming]

Amazon API の大掛かりな仕様変更[2009-05-09-1]まであと半月。
みなさん準備はどうですか？

私は、アマゾンAPIを使っている個別サービスの数が多いので、まずは Perl で自分用 Amazon Product Advertising API proxy CGI を作って当面の対処をすることにしました。
名前は PAPAXY（パパクシィ）。
「Perl Amazon Product Advertising api proXY」の略です。
テキトー

今までの amazon api の URL、

http://webservices.amazon.co.jp/onca/xml?...

のかわりに下記のように自分用 URL を使うことにしました。

http://PAPAXY_URL/api.cgi?...

「?」以降のパラメータは今までと同じです。
URL を変更するだけで使えます。
実行結果XMLも今までとまったく同じです。

コード

サーバが非力なので、みなさんに自由に使って頂ける API proxy を提供することができません。
コードだけ公開しますので、自分のサーバに置いて好きなように使ってください。

#!/usr/bin/perl -T
use strict;
use warnings;
use Digest::SHA qw(hmac_sha256_base64);
use URI::Escape qw(uri_escape);
use CGI;
use LWP::Simple;
use POSIX qw(strftime);

my $q = new CGI;

my %pkv;
foreach my $k ($q->param) {
    $pkv{$k} = $q->param($k);
}
$pkv{"Timestamp"} = strftime("%Y-%m-%dT%H:%M:%SZ", gmtime);

my $pstr = join('&', map {"$_=".uri_escape($pkv{$_})} (sort keys %pkv));
my $data = "GET\nwebservices.amazon.co.jp\n/onca/xml\n$pstr";
my $key = "Your Secret Access Key";
my $signature = hmac_sha256_base64($data, $key);
$signature .= '=' while length($signature) % 4;
$signature = URI::Escape::uri_escape($signature);

my $aurl = qq(http://webservices.amazon.co.jp/onca/xml?)
    .qq($pstr&Signature=$signature);

print $q->header(-type=>'text/xml; charset=UTF-8');
print get($aurl) || "";
print "\n";

（ライセンス的なもの：http://lifehacks.ta2o.net/byebye-copyright.html）

チリモン積もれば山となる

関連記事

Perl による自分用 Amazon Product Advertising API proxy「PAPAXY」

コード

関連情報