(Perl) S3 List Buckets (using Chilkat REST)

Demonstrates how to fetch a list of S3 buckets.

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

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);

# ----------------------------------------------------------------------------
# Important: For buckets created in regions outside us-east-1,
# there are three important changes that need to be made.
# See Working with S3 Buckets in Non-us-east-1 Regions for the details.
# ----------------------------------------------------------------------------

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

$sbResponse = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestNoBodySb("GET","/",$sbResponse);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$statusCode = $rest->get_ResponseStatusCode();
print "Response status code = " . $statusCode . "\r\n";

$xml = chilkat::CkXml->new();
$xml->LoadSb($sbResponse,1);
print $xml->getXml() . "\r\n";

if ($statusCode != 200) {
    print "Failed.  See error information in the XML." . "\r\n";
    exit;
}

# Use this online tool to generate code from sample XML: 
# Generate Code to Create XML

$i = 0;
$count_i = $xml->NumChildrenHavingTag("Buckets|Bucket");
while ($i < $count_i) {
    $xml->put_I($i);
    $Name = $xml->getChildContent("Buckets|Bucket[i]|Name");
    $CreationDate = $xml->getChildContent("Buckets|Bucket[i]|CreationDate");
    print $Name . "\r\n";
    print $CreationDate . "\r\n";
    print "--" . "\r\n";
    $i = $i + 1;
}