(Perl) MercadoLibre - GET Request with Authorization Bearer Access Token

See more MercadoLibre Examples

Demonstrates how to send an HTTPS GET request to MercadoLibre with an "Authorization: Bearer $ACCESS_TOKEN" header.

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

use chilkat();

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

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

# First get our previously obtained OAuth2 access token.
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/mercadolibre.json");
if ($success == 0) {
    print "Failed to load JSON access token." . "\r\n";
    exit;
}

# This adds the "Authorization: Bearer $ACCESS_TOKEN" header field.
$http->put_AuthToken($jsonToken->stringOf("access_token"));

# Use your seller ID.
$http->SetUrlVar("SELLER_ID","577815702");

$responseStr = $http->quickGetStr("https://api.mercadolibre.com/questions/search?seller_id={$SELLER_ID}&api_version=4");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $responseStr . "\r\n";