(Perl) Wasabi List Bucket Objects

See more Wasabi Examples

Demonstrates how to download and parse XML for the list of objects in a bucket.

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

use chilkat();

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

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

# Use the endpoint matching the bucket's region.
$http->put_AwsEndpoint("s3.us-west-1.wasabisys.com");

$bucketName = "chilkattest";

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

print "Response status code = " . $http->get_LastStatus() . "\r\n";

$xml = chilkat::CkXml->new();
$success = $xml->LoadXml($strXml);
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

# If the response status code was not 200, then the XML response is not a 
# listing of objects, but instead contains error information.
if ($http->get_LastStatus() != 200) {
    print $xml->getXml() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# A sample response is shown below.
print $xml->getXml() . "\r\n";
print "----" . "\r\n";

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

# <?xml version="1.0" encoding="UTF-8"?>
# <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
#     <Name>chilkattest</Name>
#     <Prefix/>
#     <Marker/>
#     <MaxKeys>1000</MaxKeys>
#     <IsTruncated>false</IsTruncated>
#     <Contents>
#         <Key>orchard.json</Key>
#         <LastModified>2021-10-27T22:58:49.000Z</LastModified>
#         <ETag>&quot;303fb46cf341094fef6274b7789cd6aa&quot;</ETag>
#         <Size>22</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
#     <Contents>
#         <Key>seahorse.jpg</Key>
#         <LastModified>2021-10-27T22:35:29.000Z</LastModified>
#         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
#         <Size>24388</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
#     <Contents>
#         <Key>seahorse2.jpg</Key>
#         <LastModified>2021-10-27T22:03:51.000Z</LastModified>
#         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
#         <Size>24388</Size>
#         <Owner>
#             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
#             <DisplayName>admin</DisplayName>
#         </Owner>
#         <StorageClass>STANDARD</StorageClass>
#     </Contents>
# </ListBucketResult>

$ListBucketResult_xmlns = $xml->getAttrValue("xmlns");
$Name = $xml->getChildContent("Name");
$MaxKeys = $xml->GetChildIntValue("MaxKeys");
$IsTruncated = $xml->getChildContent("IsTruncated");
$i = 0;
$count_i = $xml->NumChildrenHavingTag("Contents");
while ($i < $count_i) {
    $xml->put_I($i);
    $Key = $xml->getChildContent("Contents[i]|Key");
    $LastModified = $xml->getChildContent("Contents[i]|LastModified");
    $ETag = $xml->getChildContent("Contents[i]|ETag");
    $SizeDecimalStr = $xml->getChildContent("Contents[i]|Size");
    $ID = $xml->getChildContent("Contents[i]|Owner|ID");
    $DisplayName = $xml->getChildContent("Contents[i]|Owner|DisplayName");
    $StorageClass = $xml->getChildContent("Contents[i]|StorageClass");
    print $i . ": " . $Key . "\r\n";
    $i = $i + 1;
}