Perl

S3 Delete File

See more Amazon S3 Examples

Demonstrates how to delete a remote file (object) on the Amazon S3 service. Perl

use chilkat();

$success = 0;

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

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

# Insert your access key here
$http->put_AwsAccessKey("AWS_ACCESS_KEY");

# Insert your secret key here
$http->put_AwsSecretKey("AWS_SECRET_KEY");

$bucketName = "chilkattest";
$objectName = "starfish.jpg";

$http->put_KeepResponseBody(1);
$success = $http->S3_DeleteObject($bucketName,$objectName);

if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($http->get_LastStatus() != 204) {
    print "Status code = " . $http->get_LastStatus() . "\r\n";
    print $http->lastResponseBody() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# 204 is the success response status.
# When successful, the response body will be empty.
print "Status code = " . $http->get_LastStatus() . "\r\n";
print "Success. Object deleted." . "\r\n";