#    とりあえず perlでうごくぞっと。

#　URLに接続ー＞ JSONとってくる　-> とりあえず utf8にデコードしとく的な。

#   $url = に　任意のアドレスいれろ　ってか　これが動かせてる時点で後はわかるだろ　JK

use strict;
use Encode; # thx dan
use utf8;
use JSON;
use LWP::UserAgent;

use Data::Dumper;

my $url = q{http://211.130.154.19/api/index.php?id=market&command=search&category=%E7%B4%A0%E6%9D%90&page=0&name=%E7%9F%B3%E3%81%93%E3%82%8D&r0=1&r1=1&r2=1&r3=1&r4=1&time=1346098472123};

# download data as FireFox
    my $user_agent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)";
    my $ua = LWP::UserAgent->new('agent' => $user_agent);
    my $res = $ua->get($url);
    my $content = $res->content;

    my $hashed_data = decode_json($content);

# encode to utf8

for (@{$hashed_data->{MarketItems}}) {

   $_->{Category} = encode("utf8",$_->{Category});
   $_->{CharName} = encode("utf8",$_->{CharName});
   $_->{Name} = encode("utf8",$_->{Name});
}

print Dumper $hashed_data;

# 市場が活性化するからログレスのあらしにはなりえない　と信じる　ガレリア民

#

#{
#  'ItemUID' => '0107000F5038E82E',      どうやらログレスのアイテムには　すべてにおいて　固有IDがふられるらしい
#  'SaleCount' => '50',                             販売数
#  'SaleStartDate' => '1345906734',          うりはじめた日時か
#  'Price' => '5000',                                  値段っすな
#  'ItemID' => '65537',                              アイテムのID
#  'CharName' => '－xxx－',                       売ってる人のお名前
#  'IconID' => '020_100_00101',                画像データのID
#  'CoreCount' => '0',
#  'Rarelity' => '0',
#  'PrefixLevel' => '0',
#  'Name' => '石ころ',
#  'Category' => '素材 鉱石'
#},