Perl

S3 Delete Bucket

See more Amazon S3 Examples

Demonstrates how to delete a bucket. Perl

use chilkat();

$success = 0;

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

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

$http->put_KeepResponseBody(1);

$success = $http->S3_DeleteBucket("chilkattestbucket");

if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    # Also examine the error response body from AWS:
    print $http->lastResponseBody() . "\r\n";
}
else {
    print "Bucket deleted." . "\r\n";
}