(Perl) S3 Delete File

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

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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