Perlで仮想通貨の取引をする bitFlyer

WebService::Coincheck に続いて WebService::BitFlyer の APIを叩くモジュールも CPAN あげました。

use WebService::BitFlyer;

my $bf = WebService::BitFlyer->new(
    access_key => 'ACCESS_KEY',
    secret_key => 'SECRET_KEY',
);

$bf->api->order(
  child_order_type => 'LIMIT',
  side             => 'BUY',
  price            => 1000000,
  size             => 0.001,
);

調べてみたら coincheck は 0.005BTC からしか購入できないので、例えば 1BTC = 100万円だとすると1回の購入で 5,000円 とかなのでちょっと遊ぶにはでかいので、調べてみたら bitFlyer は 0.001BTCから買えるみたいなのでそっちでやろうかなと。

アカウント登録はぜひこちらから bitFlyer