https://metacpan.org/pod/Bitcoin::RPC::Client
Код:
#! / USR / бен / Perl
использовать Bitcoin :: RPC :: Client;
$ = Bitcoin BTC :: RPC :: Client->новый (
пользователь => "MyUser",
пароль => "MyPassWd",
хост => "127.0.0.1"
);
$ Баланс = $ btc->getbalance ("yourAccountName");
печать $ баланса;
В настоящее время предлагаемый / популярный модуль Perl является JSON RPC :: :: Клиент:
https://en.bitcoin.it/wiki/API_reference_%28JSON-RPC%29
Это делает работу, однако JSON RPC :: :: Client немного неуклюжим и не отлавливать ошибки из bitcoind правильно. Вот несколько потоков с людьми, имеющими проблемы:
Bitcoin :: RPC :: Client действительно просто оберткой для JSON RPC :: :: Client, но гораздо чище, и на самом деле обрабатывает ошибки.