Help for this page

Select Code to Download


  1. or download this
    my $json = qq/{\n\t"balance": 999000000\n}\n/;
my $data = decode_json($json);
my $balance = $data->{balance};
print $balance, "\n";  # prints "999000000"
  2. or download this
    use IPC::Run3::Shell { chomp=>1 }, qw/ libra /;
my $balance = libra(qw/ account balance f270b16e2fec7a10937d0c32eec34a
+9b2280a7ab8a64e75aa8c84e3583158349 /);