NAME
CryptoTron::GetAccountResource - Perl extension for use with the blockchain of the crypto coin Tron.
SYNOPSIS
use CryptoTron::GetAccountResource;
# Set the public key as Base58 address.
my $PublicKeyBase58 = "TY2fJ7AcsnQhfW3UJ1cjEUak5vkM87KC6R";
# Set the visible flag.
my $VisibleFlag = ["True"|"False"|""];
# Set the control flag.
my $ControlFlag = ["True"|"False"|""];
# Set the output format.
my $OutputFormat = ["RAW"|"STR"|""];
# Request the account info from the mainnet.
my $accountresource_info = GetAccount(
PublicKey => $PublicKeyBase58
[, VisibleFlag => $VisibleFlag]
[, ControlFlag => $ControlFlag]
[, OutputFormat => $OutputFormat]
);
# Print the account info into the terminal window.
print $accountresource_info;DESCRIPTION
The module requests the resource information of an account(bandwidth, energy etc.) of a Tron account from the Tron blockchain using the full-node HTTP Tron API from the Tron developer network. The module is designed for use with the Tron Mainnet. For HTTP requests the methods POST or GET can be used in general. For the method GetAccountResource the needed method is POST. The payload of the HTTP request consists of the key 'address' and the key 'visible' and the related values. The switch 'visible' can be set to "True" or "False". If the switch is set to "True" a Base58 address is used. If the switch is set to "False" a Hex address is used. A request of the service API results in a response in JSON format. The module returns formatted string JSON data as well as unformated raw JSON data based on the output format flag. The parsing of the account information is done by a separate module.
METHOD
GetAccountResource()OPTIONS
The named subroutine argument key PublicKey and the related value are mandatory, the named subroutine arguments keys OutputFormat as well as VisibleFlag and there values are optional. The value of the subroutine argument key PublicKey can be a Base58 address or a Hex address. The value of the subroutine argument key VisibleFlag can be "True" or "False".
PublicKey: Base58 address => VisibleFlag: True
PublicKey: Hex address => VisibleFlag: False
If the given combination is not valid, an error will be returned from the request.
The subroutine argument key ControlFlag and his value controls if the given combination address and visible should be checked. If visible is not set in a correct way, the value will be corrected if the flag is "True" and if the flag is "False" it will not be corrected.
The subroutine argument key OutputFormat and his value controls wether the output is raw JSON or or formatted JSON.
METHOD RETURN
| PARAMETER | DESCRIPTION |
| NetUsed | Used amount of bandwidth obtained by staking |
| NetLimit | Total bandwidth obtained by staking |
| freeNetUsed | free bandwidth used |
| freeNetLimit | Total free bandwidth |
| TotalNetLimit | Total bandwidth can be obtained by staking |
| TotalNetWeight | Total TRX staked for bandwidth |
| tronPowerUsed | Tron power used |
| tronPowerLimit | TRON Power(vote) |
| EnergyUsed | Energy used |
| EnergyLimit | Total energy obtained by staking |
| TotalEnergyLimit | Total energy can be obtained by staking |
| TotalEnergyWeight | Total TRX staked for energy |
EXAMPLES
Example 1
# Load the required module.
use CryptoTron::GetAccountResource;
# Set the public key as Base58 address.
my $PublicKeyBase58 = "TY2fJ7AcsnQhfW3UJ1cjEUak5vkM87KC6R";
# Set the visible flag.
my $VisibleFlag = "True";
# Set the control flag.
my $ControlFlag = "True";
# Set the output format.
my $OutputFormat = "RAW";
# Request the account info from the mainnet.
my $account_info = GetAccountResource({
PublicKey => $PublicKeyBase58,
VisibleFlag => $VisibleFlag,
ControlFlag => $ControlFlag,
OutputFormat => $OutputFormat
});
# Print the resource info into the terminal window.
print $account_info;Example 2
# Load the required module.
use CryptoTron::GetAccountResource;
# Set the public key as Base58 address.
my $PublicKeyBase58 = "TY2fJ7AcsnQhfW3UJ1cjEUak5vkM87KC6R";
# Set the output format.
my $OutputFormat = "STR";
# Request the account info from the mainnet.
my $response = GetAccountResource({PublicKey => $PublicKeyBase58});
# Print the resource info into the terminal window.
print $response;LIMITATIONS
The module is working with the Tron Mainnet, but not with other existing Tron Testnets.
OPEN ISSUES
None
ERROR CODES
None
NOTES
None
BUGS
None
TODO
None
SEE ALSO
CryptoTron::JsonHttp
CryptoTron:ParseAccount
CryptoTron:AddressCheck
CryptoTron:AddressConvert
File::Basename
AUTHOR
Dr. Peter Netz, <ztenretep@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2022 by Dr. Peter Netz
This library is free software; you can redistribute it and/or modify it under the same terms of The MIT License. For more details, see the full text of the license in the attached file LICENSE in the main module folder. This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.