(Perl) Get a List of Message IDs in GMail User's Mailbox

Demonstrates how to get a list of message IDs in a GMail mailbox. The "userId" can be either the user's email address or the special value "me" to indicate the authenticated user.

For more information, see https://developers.google.com/gmail/api/v1/reference/users/messages/list

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

use chilkat();

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

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

$http->put_AuthToken("ACCESS_TOKEN");

$http->put_Accept("application/json");

# resp is a HttpResponse
$resp = $http->QuickRequest("GET","https://www.googleapis.com/gmail/v1/users/userId/messages");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($resp->bodyStr());
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

if ($resp->get_StatusCode() != 200) {
    print "Failed." . "\r\n";

    exit;
}

# {
#   "messages": [
#     users.messages Resource
#   ],
#   "nextPageToken": string,
#   "resultSizeEstimate": unsigned integer
# }

$resultSizeEstimate = $jsonResponse->IntOf("resultSizeEstimate");
$i = 0;
$count_i = $jsonResponse->SizeOfArray("messages");
while ($i < $count_i) {
    $jsonResponse->put_I($i);
    $id = $jsonResponse->stringOf("messages[i].id");
    $threadId = $jsonResponse->stringOf("messages[i].threadId");
    $i = $i + 1;
}