気になる言葉ショップ

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

電脳WEBサービス

電脳卸の提供するWebサービスですが、長期療養中。2006年6月20日再開予定。
使えなくなる前は、こんな感じで使ってました。

my $email = '[登録メールアドレス]';
my $hid = "[販売店ID]";
my $type = "heavy";
my $sort = "1";
my $url0 = "http://webservice.d-064.com/get_tag.php?"
."&email=". $email
."&hid=". $hid
."&type=". $type
."&sort=". $sort;
my $onsale='販売中';
# 検索文字列をUTF-8に。
my $query = '[検索したい語]';
Encode::from_to($query,'sjis','utf8');
&encode($query);
utf8::decode($query);
foreach $j(1 .. 3){ #最大10x3個のデータを取得
my $url = $url0 ."&sword=". $query ."&page=". $j;
my $content = get $url;
if($content eq ""){ return; };
$XML::Simple::PREFERRED_PARSER = 'XML::LibXML::SAX';
my $xmlsimple = new XML::Simple(ForceArray => ['Details']);
my $responce = $xmlsimple->XMLin($content);
my $link1 = $responce->{ProductPHP} . "?hid=" . $hid;
foreach my $result(@{$responce->{Details}}){
my $salestatus = $result->{SaleStatus};
$salestatus = Encode::encode("utf8",$salestatus);
Encode::from_to($salestatus,'utf8','sjis');
if($salestatus ne $onsale) {next;} #販売中でないものは除く
# 検索結果をシフトJIS変換。
my $title = $result->{ProductName};
$title = Encode::encode("utf8",$title);
Encode::from_to($title,'utf8','sjis');
my $detail = "";
if( !ref($result->{ItemDetail})){
$detail = $result->{ItemDetail};
if( $detail ne "" ){
$detail = Encode::encode("utf8",$detail);
Encode::from_to($detail,'utf8','sjis');
}
}
my $linkurl = "$link1&pid=$result->{ItemID}&oid= $result->{ORID}";
my $imgurl = $result->{ImageUrlMedium}; # バナーURL
ここでいろいろ処理
}
if($j >= $responce->{TotalPages}){last;} #最後のページまで終了
}

パーサーは、高速版だとフォーマット違反にある場合あり。

Comments are closed.