(Perl) Permanently Delete a Specific GMail Message

Immediately and permanently deletes the specified message. This operation cannot be undone. (This is not the same as moving a message to Trash.)

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("GMAIL-ACCESS-TOKEN");

# The id of the GMail message to delete.
$id = "1669cc9a926bb8c1";
$userId = "me";

$http->SetUrlVar("userId","me");
$http->SetUrlVar("id",$id);

# Delete the email.
$url = "https://www.googleapis.com/gmail/v1/users/{$userId}/messages/{$id}";
$responseStr = $http->quickDeleteStr($url);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "status = " . $http->get_LastStatus() . "\r\n";

# A 204 response indicate success.
# It is common for HTTP DELETE operations to respond with a 204 status code with an empty body for success.
# You'll find many REST APIs follow this custom..
if ($http->get_LastStatus() != 204) {
    print $responseStr . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

print "Message deleted!" . "\r\n";