(Perl) Delete File

Permanently deletes a file owned by the user without moving it to the trash. If the target is a folder, all descendants owned by the user are also deleted.

See Google Drive Files delete for more information.

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

use chilkat();

$success = 1;

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

# This example uses a previously obtained access token having permission for the 
# Google Drive scope.

$gAuth = chilkat::CkAuthGoogle->new();
$gAuth->put_AccessToken("GOOGLE-DRIVE-ACCESS-TOKEN");

$rest = chilkat::CkRest->new();

# Connect using TLS.
$bAutoReconnect = 1;
$success = $rest->Connect("www.googleapis.com",443,1,$bAutoReconnect);

# Provide the authentication credentials (i.e. the access token)
$rest->SetAuthGoogle($gAuth);

# To delete a file, we must use the fileId.
# This must've been obtained by listing or searching for the file
# to get the metadata.
# Assume we already did that an have the fileId
$fileId = "0B53Q6OSTWYoldUprZVU1ZVQ5Z0k";

$sbPath = chilkat::CkStringBuilder->new();
$sbPath->Append("/drive/v3/files/");
$sbPath->Append($fileId);

$jsonResponse = $rest->fullRequestNoBody("DELETE",$sbPath->getAsString());
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# A successful response will have a status code equal to 204 and the response body is empty.
# (If not successful, then there should be a JSON response body with information..)
if ($rest->get_ResponseStatusCode() != 204) {
    print "response status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    print "response status text = " . $rest->responseStatusText() . "\r\n";
    print "response header: " . $rest->responseHeader() . "\r\n";
    print "response JSON: " . $jsonResponse . "\r\n";
    exit;
}

print "File deleted." . "\r\n";