Perl bitcoin

Skapad 3 år sedan, skriven i Perl, med 320 visningar.
URL http://kod.perl.se/view/29f14420 Bädda in
Ladda hem koden eller visa koden i råformatVisa bredare version
  1.  use JSON::RPC::Client;
  2.   use Data::Dumper;
  3.  
  4.   my $client = new JSON::RPC::Client;
  5.  
  6.   $client->ua->credentials(
  7.      'localhost:8332', 'jsonrpc', 'user' => 'password'  # REPLACE WITH YOUR bitcoin.conf rpcuser/rpcpassword
  8.       );
  9.  
  10.   my $uri = 'http://localhost:8332/';
  11.   my $obj = {
  12.       method  => 'getinfo',
  13.       params  => [],
  14.    };
  15.  
  16.   my $res = $client->call( $uri, $obj );
  17.  
  18.   if ($res){
  19.       if ($res->is_error) { print "Error : ", $res->error_message; }
  20.       else { print Dumper($res->result); }
  21.   } else {
  22.       print $client->status_line;
  23.   }

Svara på "Perl bitcoin"

Här kan du skriva ett svar till kodsnutten ovan