気になる言葉ショップ

気になる言葉ショップでは、管理人のわがままで選ばれた気になる言葉ごとのオンラインショッピングコーナーを設けています。
アクセストレード WEBサービス

アクセストレード WEBサービス

アクセストレードWEBサービスβ版( 以下ATWS )

提携したショップがWEBサービスを提供していると使えます。逆にいうと提携していないお店の商品は取り出せません。
まだ、β版のためか、カテゴリ指定が、使いにくいです。カテゴリといってもお店の登録してあるカテゴリのようで、お店がいろいろなカテゴリの商品を扱っているとカテゴリに関係ない商品も抽出されるようです。機能的には、サブカテゴリがありますが、まだ使われていないようです。

my $query ='[検索したい語]';
Encode::from_to($query,'sjis','utf8');
&encode($query);
utf8::decode($query);
my $url = "http://xml.accesstrade.net/at/ws.html?ws_type=searchgoods&ws_ver=1
&ws_id=[パートナーID]&row=20&sort1=5&search=" . $query;
my $content = get $url;
if($content eq ""){ return; };
my $xmlsimple = new XML::Simple(ForceArray => ['Goods']);
my $responce = $xmlsimple->XMLin($content);
foreach my $result(@{$responce->{Goods}}){
my $title = $result->{GoodsName};
$title = Encode::encode("utf8",$title);
Encode::from_to($title,'utf8','sjis');
my $corpname =$result->{ShopName};
$corpname = Encode::encode("utf8",$corpname);
Encode::from_to($corpname,'utf8','sjis');
my $opt = 'target="_blank" rel="nofollow"';
$opt .= ' onmouseover="window.status=\'' .$corpname .'へ\';return true;"
onmouseout="window.status=\' \';return true;"';
my $linkurl = "<a href=\"$result->{LinkCode}\" $opt>";
ここでいろいろ処理
}

Comments are closed.