Amazon Web ServiceにSOAPで要求し、検索する

AmazonWebServiceを使って引数のキーワードで検索するスクリプト SOAP::LiteとJcode.pmとデベロッパートークンが必要 (アフィリエイトIDは任意)

#Your Amazon developer's token my $dev_token='デベロッパートークン'; #Your Amazon affiliate code my $af_tag='ここにはアフィリエイトコードを埋める'; #Location of the Amazon WSDL file #日本国内向けにした #my $amazon_wdsl = "http://soap.amazon.com/schemas3/AmazonWebServices.wsdl"; my $amazon_wdsl = "http://soap.amazon.co.jp/schemas3/AmazonWebServices.wsdl"; use strict; use Jcode; #Use the SOAP::Lite Perl module use SOAP::Lite; #Take the query from the command-line my $keyword =shift @ARGV or die "Usage:amazon.pl <keyword>\n"; #Create a new SOAP::Lite instance, feeding it Amazon's WSDL my $amazon_search = SOAP::Lite->service("$amazon_wdsl"); #Query Amazon my $results = $amazon_search -> KeywordSearchRequest(SOAP::Data->name("KeywordSearchRequest") ->type("KeywordRequest") ->value(\SOAP::Data->value( SOAP::Data->name("keyword" => $keyword), SOAP::Data->name("page" => "1"), SOAP::Data->name("mode" => "books-jp"), SOAP::Data->name("tag" => $af_tag), SOAP::Data->name("type" => "lite"), SOAP::Data->name("devtag" => $dev_token), SOAP::Data->name("locale" => "jp") )) ); foreach my $result (@{$results->{Details}}){ #Print out the main bits of each result print "TITLE:",jcode($result->{ProductName})->euc || "no title", "\n",jcode($result->{OurPrice})->euc, "\n",jcode($result->{ListPrice})->euc, "\nASIN: $result->{Asin}", "\nImage: $result->{ImageUrlSmall}", "\n"; foreach my $i (@{$result->{Authors}}) { printf("by %s \n", jcode($i)->euc ) ; } print "\n\n"; }

実行結果はこのようになる

%./amazon.pl Aho
TITLE:コンパイラ―原理・技法・ツール〈2〉
￥ 5,880
￥ 5,880
ASIN: 4781905862
Image: http://images-jp.amazon.com/images/P/4781905862.09.THUMBZZZ.jpg
by A. V. エイホ
by R. セシィ
by J. D. ウルマン
by 原田 賢一


TITLE:プログラミング言語AWK
￥ 3,465
￥ 3,465
ASIN: 4775302493
Image: http://images-jp.amazon.com/images/P/4775302493.09.THUMBZZZ.jpg
by アルフレッド・V. エイホ
by ピーター・J. ワインバーガー
by ブライアン・W. カーニハン
by Alfred V. Aho
by Peter J. Weinberger
by Brian W. Kernighan
by 足立 高徳


TITLE:コンパイラ―原理・技法・ツール〈1〉
￥ 5,880
￥ 5,880
ASIN: 4781905854
Image: http://images-jp.amazon.com/images/P/4781905854.09.THUMBZZZ.jpg
by A. V. エイホ
by R. セシィ
by J. D. ウルマン
by 原田 賢一


TITLE:データ構造とアルゴリズム
￥ 4,935
￥ 4,935
ASIN: 4563007919
Image: http://images-jp.amazon.com/images/P/4563007919.09.THUMBZZZ.jpg
by 大野 義夫


TITLE:プログラミング言語AWK
￥ 3,465
￥ 3,465
ASIN: 4901280406
Image: http://images-jp.amazon.com/images/P/4901280406.09.THUMBZZZ.jpg
by Alfred V.Aho
by Brian W.Kernighan
by Peter J.Weinberger

Posted by thomas at 2004年05月29日 08:05 | トラックバック / アフィリエイトはエーハチネット