Perl

S3 Delete Bucket

See more Amazon S3 Examples

Demonstrates how to delete a bucket. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat 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('ABQXXABC83ABCDEFVQXX');

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

$http->KeepResponseBody(1);

my $success = $http->S3_DeleteBucket('chilkattestbucket');

if (!$success) {
    print $http->LastErrorText, "\n";
    # Also examine the error response body from AWS:
    print $http->LastResponseBody, "\n";
} else {
    print "Bucket deleted.\n";
}