(Perl) MyInvois Malaysia Validate Taxpayer TIN

See more Malaysia MyInvois Examples

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://sdk.myinvois.hasil.gov.my/einvoicingapi/01-validate-taxpayer-tin/

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$http = chilkat::CkHttp->new();

# Implements the following CURL command:

# curl -X GET https://preprod-api.myinvois.hasil.gov.my/api/v1.0/taxpayer/validate/C1234567890 \
#   -d "idType=BRN" \
#   -d "idValue=200001009999" \
#   -H "Authorization: Bearer <access_token>"

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

$queryParams = chilkat::CkJsonObject->new();
$queryParams->UpdateString("idType","BRN");
$queryParams->UpdateString("idValue","200001009999");

# Adds the "Authorization: Bearer <access_token>" header.
$http->put_AuthToken("<access_token>");

# Note: The access token is valid for a short amount of time.  Perhaps 1 hour.
# The access token is used in the "Authorization: Bearer <access_token>" header in subsequent requests until it expires.
# Your application would then need to get a new access token, and so on..
# To get an access token, see How to Get a MyInvois Access Token

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpParams("GET","https://preprod-api.myinvois.hasil.gov.my/api/v1.0/taxpayer/validate/C1234567890",$queryParams,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $resp->get_StatusCode() . "\r\n";
print $resp->bodyStr() . "\r\n";