$ Кошки getopt-rpc.pl
#! / USR / бен / Perl

использовать предупреждение;
использовать строгий;
использовать Term :: ReadKey;
использовать JSON RPC :: :: Client;
использовать Getopt :: Long;

GetOptions \% мой выбирает,
    '--host = s',
    '--port = s',
    '--user = s' или
    умирают 'Getopt';

напечатает RPC пароль: ';
ReadMode 'NoEcho'; $ КЛЮЧ { 'проход'} = <>; ReadMode 'восстановление'; Распечатать "\ п";
чавкать $ выбирает { 'проход'};

мой $ URL = Sprintf 'HTTP: //% s:% s @% S:% s /', @opts {дш / пользователь передача хост-порт /};

мой $ = JSON RPC :: RPC :: Client->новый;
$ rPC->подготовить ($ URL, [дш / getblock getblockhash /]);
мой $ ЧД = $ rPC->getblockhash (222222);
мой $ блок = $ rPC->getblock ($ ЧД);
мой @tx = @ {$ блок->{ 'ТХ'}};
Printf "% D TXS \ п", Скалярное @tx;

$ ./getopt-rpc.pl --user пользователя --host локальный --port 8332
RPC пароль:
749 TXS
$ ./getopt-rpc.pl -u пользователь -h локальный -p 8332 ## короткие варианты слишком хорошо
RPC пароль:
749 TXS