[perl][module][amazon]Net::Amazon - PerlさんPerlくん

参考：CPANでのドキュメント
http://search.cpan.org/~mschilli/Net-Amazon/

use Net::Amazon;#モジュール利用を宣言し、

my $ua = Net::Amazon->new( #オブジェクトを作成
token => '02BX0Y9XTKT1XZ7F7882', #デベロッパートークン作成
locale => 'jp', #言語を指定
);
my $keyword = '中島美嘉';　　　　　　　　　　　　　　　#キーワード定義
Encode::from_to($keyword, 'euc-jp','utf8');　　　　　#キーワードをutf-8に変換
my $response = $ua->search( artist => $keyword, mode => 'music');#条件を入れて取得

#やっとデータの取得

#※この際注意が必要なのはプロパティ名の頭文字がいろいろであること。。

#http

://search.cpan.org/dist/Net-Amazon/でそれぞれのプロパティ名を確認してください

if($response->is_success()) {

for ($response -> properties)
{
$ct++;
print "[$ct]";
print "artist= ". $_ -> artist ."

"; #頭文字は小文字
print "Asin= ". $_ -> Asin ."

"; #頭文字は大文字
print "ProductName= ". $_ -> ProductName ."

";
print "Catalog= ". $_ -> Catalog ."

";

print "

";
}

} else {
print "Error
";
}