

それで、フォーマットを作って、それに沿って書くようにすればいいのではないかと思い、項目を考えてみました。
1. その本を手にとって読んでみた理由は?
2. その本の概要は?(どのような本か?)
3. その本を読んで印象に残ったところは?
4. 他の人におすすめのポイントは?
この4つの質問に答えていくようにすれば、ブログの記事が1本書けそうです。


#!/usr/bin/perl -T
use strict;
use warnings;
use LWP::Simple;
my $AID = "(アフィリエイトID)";
my $DID = "(デベロッパーID)";
my $qs = $ENV{QUERY_STRING} || "";
my ($asin) = $qs =~ /^(4[0-9]{8}[0-9X])$/;
$asin ||= "";
my $ua = $ENV{'HTTP_USER_AGENT'} || "";
my $url = "http://api.rakuten.co.jp/rws/3.0/rest?"
."developerId=$DID&affiliateId=$AID&"
."operation=BooksBookSearch&"
."version=2010-03-18&isbn=$asin";
my $cont = $asin ? (get($url) || "") : "";
if ($cont =~ /<affiliateUrl>(.+?)</) {
my $aurl = $1;
print "Location: $aurl\n\n";
} else {
print "Content-Type: text/html\n\nNOT FOUND!\n";
}
http://asin.ta2o.net/asin2rkbk.cgi?4105393057
http://asin.ta2o.net/rkbk/4105393057
.htaccess : RewriteRule ^rkbk/([A-Z0-9]+) /asin2rkbk.cgi?$1 [L]
