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

{{tag: perl, cryptocurrency}}

{{cpan: WebService::Coincheck}} に続いて {{cpan: 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から買えるみたいなのでそっちでやろうかなと。

アカウント登録はぜひこちらから [[https://bitflyer.jp?bf=a20movag bitFlyer]]