鐃緒申鐃緒申覆錣縁申如鐃緒申鐃緒申泙鐃緒申鐃緒申鐃�
- /lang/perl/URI-Amazon-APA/trunk - CodeRepos::Share - Trac
- dankogai's p5-uri-amazon-apa at master - GitHub
- @CPAN (coming soon)
名鐃緒申鐃術刻申鐃祝とわ申覆鐃緒申鐃�Product Advertising API 鐃祝リク鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃駿￥申認鐃准のわ申鐃緒申鐃緒申纏匳鐃縮常申鐃殉わ申討鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃宿�鐃竣になわ申泙鐃緒申鐃緒申鐃緒申鐃緒申儿鐃緒申蓮鐃�2009年5鐃緒申11鐃緒申鐃緒申鐃�3鐃緒申鐃緒申隆屬琉楾坿鐃� 鐃瞬の後、2009年8鐃緒申15鐃緒申鐃祝は￥申Product Advertising API 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃所ク鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申認鐃准わ申鐃緒申襪鰹申箸箸覆蝓�認鐃准わ申鐃緒申覆鐃緒申鐃順、鐃所ク鐃緒申鐃緒申鐃夙は緒申鐃緒申鐃緒申鐃緒申覆鐃緒申覆鐃殉わ申鐃緒申Product Advertising API 鐃舜のリク鐃緒申鐃緒申鐃夙に緒申名認鐃准わ申泙鐃暑た鐃緒申隆鐃獣縁申鐃緒申鐃祝￥申砲弔鐃緒申討蓮鐃�鐃緒申鐃緒申鐃緒申粒鐃夙�鐃峻醐申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
鐃夙わ申鐃緒申鐃熟￥申鐃緒申鐃緒申鐃瞬わ申鐃獣縁申任鐃緒申鐃緒申焚鐃緒申鐃緒申鐃緒申魯謄鐃緒申箸忙箸辰鐃�Script鐃緒申key鐃緒申secret鐃塾わ申鐃緒申鐃緒申鐃銃￥申
#!/usr/local/bin/perl
use strict;
use warnings;
use URI::Amazon::APA;
use LWP::UserAgent;
use XML::Simple;
use YAML::Syck;
my $u = URI::Amazon::APA->new('http://webservices.amazon.com/onca/xml');
$u->query_form(
Service => 'AWSECommerceService',
Operation => 'ItemSearch',
Title => shift || 'Perl',
SearchIndex => 'Books',
);
$u->sign(
key => $key,
secret => $secret,
);
my $ua = LWP::UserAgent->new;
my $r = $ua->get($u);
print $r->status_line, "\n", YAML::Syck::Dump( XMLin( $r->content ) );
鐃竣わ申URI鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申sign鐃潤ソ鐃獣ドわ申鐃緒申鐃宿加わ申鐃銃わ申鐃夙わ申鐃緒申鐃盾ジ鐃遵ー鐃緒申任鐃緒申鐃�Timestamp鐃淑ども、鐃緒申略鐃緒申鐃緒申討鐃緒申鐃出種申動鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申泙鐃緒申鐃�
鐃緒申分鐃緒申 ID 鐃叔わ申辰討澆鐃緒申鐃緒申鼻鐃叔э申鐃� URL 鐃熟ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃峻わ申鐃緒申鐃緒申
鐃盾う鐃緒申鐃駿試し鐃銃みて駕申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃銃は￥申Digest::SHA::hmac_sha256_base64()鐃塾緒申鐃熟はわ申鐃塾ままでは使わ申鐃淑わ申鐃銃￥申=鐃緒申pad鐃緒申鐃淑わ申鐃緒申个覆鐃淑わ申鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申泙鐃緒申鐃�
Enjoy!
Dan the Perl Monger
鐃宿居申:鐃緒申鐃緒申鐃藷、種申鐃舜の削申発鐃緒申鐃緒申
use utf8;
use feature qw(say);
use URI::Amazon::APA;
my $u = URI::Amazon::APA->new('http://ecs.amazonaws.jp/onca/xml');
$u->query_form( Title => '鐃緒申鐃旬醐申' );
say $u->query;
$u->sign(key => $key, secret => $secret);
say $u->query =~ m/(Title=.+)/ ? $1 : '';
$ perl test.pl
Title=%E6%97%A5%E6%9C%AC%E8%AA%9E
Title=%C3%A6%C2%97%C2%A5%C3%A6%C2%9C%C2%AC%C3%A8%C2%AA%C2%9E
decode_utf8 鐃緒申 is_utf8 鐃塾ワ申鐃緒申鐃獣ワ申鐃緒申鐃緒申鐃盾し鐃緒申鐃緒申辰討鐃塾でわ申鐃順う鐃緒申鐃緒申
- my %q = map { $_ => decode_utf8( uri_unescape( $eq{$_} ) ) } keys %eq;
+ my %q = map { $_ => Encode::decode('utf8', uri_unescape( $eq{$_} ) ) } keys %eq;