Perl

Delete File

See more Google Drive Examples

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.

Perl

use chilkat();

$success = 0;

$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";