(Perl) Create S3 Bucket in a Region

See more Amazon S3 Examples

For more information, see https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateBucket.html

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

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

$rest = chilkat::CkRest->new();

# Connect to the Amazon AWS REST server.
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("s3.amazonaws.com",$port,$bTls,$bAutoReconnect);

# Provide AWS credentials for the REST call.
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
$authAws->put_ServiceName("s3");
$success = $rest->SetAuthAws($authAws);

# We'll send a PUT request having an XML body such as this:
# <CreateBucketConfiguration xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> 
#   <LocationConstraint>BucketRegion</LocationConstraint> 
#   </CreateBucketConfiguration>

# Create the XML body specifying the region as "eu-west-2"
$bucketRegion = "eu-west-2";
$sbBucketRegion = chilkat::CkStringBuilder->new();
$sbBucketRegion->Append($bucketRegion);

# We only need to specify the LocationConstraint if the bucket's region is NOT us-east-1
$xml = chilkat::CkXml->new();
if (!$sbBucketRegion->ContentsEqual("us-east-1")) {
    $xml->put_Tag("CreateBucketConfiguration");
    $xml->AddAttribute("xmlns","http://s3.amazonaws.com/doc/2006-03-01/");
    $xml->UpdateChildContent("LocationConstraint","eu-west-2");
}

# --------------------------------------------------------------
# IMPORTANT: To create a bucket in the default us-east-1 region,
# do not add the LocationConstraint.  Adding a LocationConstraint of "us-east-1"
# causes an error "The specified location-constraint is not valid."
# By default, the bucket is created in us-east-1 by sending a PUT with an empty body.
# --------------------------------------------------------------

# Set the bucket name via the HOST header.
# In this case, the bucket name is "chilkateuwest2".
$rest->put_Host("chilkateuwest2.s3.amazonaws.com");

# Make the call to create the bucket.

if (!$sbBucketRegion->ContentsEqual("us-east-1")) {
    $responseStr = $rest->fullRequestString("PUT","/",$xml->getXml());
}
else {
    # If the bucket is to be created in the us-east-1 region (the default region)
    # just send a PUT with no body.
    $responseStr = $rest->fullRequestNoBody("PUT","/");
}

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

if ($rest->get_ResponseStatusCode() != 200) {
    print "status code = " . $rest->get_ResponseStatusCode() . "\r\n";
    $responseXml = chilkat::CkXml->new();
    $responseXml->LoadXml($responseStr);
    print $responseXml->getXml() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

print "Bucket in the eu-west-2 region created." . "\r\n";