[Perlメモ]BINANCE APIを使ってローソク足のデータを取得するPerlスクリプトサンプル

Posted by kumacchi on 2019年9月7日 , No comment

中国の暗号通貨取引所大手BINANCEのWEB APIを利用すると自動取引したり、様々な情報を取得したりすることができます。ローソク足の情報を取得する程度ならBINANCEに登録することなく利用可能です。

BINANCEからロウソク足のデータを取得するサンプルプログラム

そういうわけで、特定通貨ペアの情報を取得するperlによるサンプルプログラム

#!/bin/perl
#=======================================================================
#
# Binance Apiを利用してローソク足のデータを取得するプログラム
#
# 2019/09/06 新規
#
# example:
# https://api.binance.com/api/v1/klines?symbol=BTCUSDT&interval=1m&limit=2
# https://api.binance.com/api/v1/klines?symbol=ETHUSDT&interval=1m&limit=2
# [[1567752960000,"10722.02000000","10727.65000000","10717.26000000","10727.64000000","15.59631100",1567753019999,"167233.14485413",193,"7.63537800","81877.93632365","0"],[1567753020000,"10726.37000000","10729.00000000","10717.25000000","10718.15000000","14.43884000",1567753079999,"154809.53182261",179,"8.52008300","91345.00582345","0"]]
#
# document:
# https://github.com/binance-exchange/binance-official-api-docs/blob/master/rest-api.md#klinecandlestick-data
#=======================================================================
use strict;
use warnings;
use utf8;
use LWP::Simple;
use XML::Simple;
#use Data::Dumper;
use JSON qw/encode_json decode_json/;

my $endPoint = 'https://api.binance.com'; # APIのURL
my $api = '/api/v1/klines'; # API
my $market = 'BTCUSDT'; # 通貨ペア
my $interval = '1m'; # インターバル
my $limit = '2'; # データ取得数

my $url = $endPoint . $api . "?symbol=$market&interval=$interval&limit=$limit";
my $xmlsimple = XML::Simple->new();

my $content = get($url);
if( defined $content ){
print "found content\n";

my $data = decode_json($content);
# print Dumper($data);

foreach my $r(@{$data}){
print join(",",@{$r}),"\n";
}
}

実行すると下のような感じでデータが取得できる

$ perl get_order_book.pl
found content
1567850160000,10376.41000000,10378.89000000,10376.41000000,10377.77000000,6.71880100,1567850219999,69722.71410192,83,3.55733200,36916.10270545,0
1567850220000,10378.83000000,10378.83000000,10377.10000000,10377.93000000,1.14684100,1567850279999,11901.54785654,18,0.53378400,5539.45825373,0
$