System Answer G2でJSONデータの取得練習

今回のネタは特にSystemAnswerG2ではなくてもよくて、私の頭の体操の為にやってみているだけなのですが、最近は何かと「ＡＰＩ」だの「REST API」だの「ＪＳＯＮ」だのと聞きます。

何時頃からＸＭＬからＪＳＯＮに変わってきた？変わってない？ここら辺がソフト屋でもないもんでインフラ屋はちょっと疎いですよね[E:coldsweats02]

先日、ＡＷＳのCloudWatchのデータをJSONフォーマットで抜き出したりもしましたが、どうやらＪＳＯＮは勝手を覚えておいた方が良さそうです。

なので、ＡＰＩ公開しているもので、数値でありながら面白そうなＪＳＯＮデータが無いかな～？と探していましたら、ありました。

為替情報です。全くもってＦＸとかやる軍資金もないので口座開設しないと利用できないＡＰＩは扱えないのですが・・・一般公開？されているＡＰＩってボチボチあるんですね。１回コツを覚えておけば応用は出来るでしょう。

で、どうせなら取得したものをグラフにしてしまえと、最近なんでも受け皿にされているSAG2にデータを取りこんでみます。今回の主旨はＪＳＯＮデータの取り出し・加工の勉強なんで、始値・終値・売り値・買い値などなど拘らず、どちらにせよSAG2ではローソクの表現は出来ませんので、まぁ将来的に「色々なAPI情報の取得を汎用的に出来る様に」という道筋が出来る程度で良い感じでやってみます。

言語は手っ取り早く・・・Ｐｅｒｌで書きます。ボチボチほかの言語も慣れないとかな？
で、色々と全部自分で解析して書くのは面倒なんで

#yum install perl-JSON

と、モジュールを突っ込んでおきます。

データのソースとしては、外為オンラインさんが、JSONのデータを１秒単位で吐き出しているようなので・・・（心の中で）試験目的で突っつかせてもらいます。
取得方法は、困ったときは「curlを使う」と、誰かがささやいていた様な気がします。

で、あとは、ＪＳＯＮモジュールの使い方を少し調べて…。

＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
###perlでJSONのデータの取り出しサンプル
#!/usr/bin/perl -w
use JSON;

open (FAI, "curl -s http://www.gaitameonline.com/rateaj/getrate |") || die "value=$!";
while (<FAI>) {
$fai_data = $_;
};
close (FAI);

my $items = JSON->new()->decode($fai_data);
my @data = $items->{quotes};

print "ASK=".$data[0][20]->{ask}."\n";
＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃
while文の所はかっこ悪いですが、使い回し楽なもんで[E:coldsweats01]

苦労したのは多次元配列にどのように入るのかピンとこなくて。
ＪＳＯＮのデータは、どうやら配列の格納時に考えないといけないようですね。これは他にもデータを見てみないとかな…。

で、取り出してみた結果・・・。

一応、１分周期ではなく５分周期で取得しています。ただ、何銭が動いているだけなので、少しグラフの表現が苦しそうです。

SAG2は、１コマンド１取得という仕組みなので、例えば今回の様な１度に色々な数字が取れる場合でも、４項目あったら４コマンドを発行させる形になるので、少々先方に無駄にアクセスさせることになってしまいます。
その為、今回は１項目だけのサンプルになりますが、例えばcronでＡＰＩをスケジュール取得させておいて、その取得データを舐めるような仕様にすれば、無駄にＡＰＩを突きに行かなくて済みます。あとは、ローカル環境で、要素を合わせた再計算をさせてからデータを吐きたいなどもあるかもしれないので、一時的にローカルでデータ成型するのもありかもしれません。

そうそう、ＡＰＩで気を付けなければならないのは、ＡＰＩ側も猛烈に連続取得されるのは都合悪かったりする場合もあるんで、再取得タイミング調整をする機構が実装されていたりとかもあるので注意しなければならんすね。