Perl

S3 Delete File

See more Amazon S3 Examples

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

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

# Insert your access key here:
$http->AwsAccessKey('AWS_ACCESS_KEY');

# Insert your secret key here:
$http->AwsSecretKey('AWS_SECRET_KEY');

my $bucketName = 'chilkattest';
my $objectName = 'starfish.jpg';

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

if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

if ($http->LastStatus != 204) {
    print 'Status code = ', $http->LastStatus, "\n";
    print $http->LastResponseBody, "\n";
    print "Failed.\n";
    exit;
}

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