アクセストレード 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>";


        ここでいろいろ処理

    }

当サイトは、サイト内の広告利用状況の集計のために、クッキー、ウェブ・ビーコンといった汎用技術を用いています。

取得したホスト情報などは広告利用状況の集計にのみ利用することをお約束いたします。

Powered by