(Perl) OSS List Bucket Objects (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to list the objects in a bucket.

The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.

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 AccessKey ID here:
$http->put_AwsAccessKey("access-key");

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

# To list objects in a bucket located in a different region, use the endpoint for that region, such as "oss-cn-hangzhou.aliyuncs.com 	"
# See Alibaba Object Storage Service Regions and Endpoints
$http->put_AwsEndpoint("oss-us-east-1.aliyuncs.com");

$bucketName = "chilkat";

$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>chilkat</Name>
#     <Prefix/>
#     <Marker/>
#     <MaxKeys>1000</MaxKeys>
#     <IsTruncated>false</IsTruncated>
#     <Contents>
#         <Key>orchard.json</Key>
#         <LastModified>2021-10-29T16:58:12.000Z</LastModified>
#         <ETag>"303FB46CF341094FEF6274B7789CD6AA"</ETag>
#         <Size>22</Size>
#         <StorageClass>STANDARD</StorageClass>
#         <Owner>
#             <ID>5035535379748121</ID>
#             <DisplayName>5035535379748121</DisplayName>
#         </Owner>
#     </Contents>
#     <Contents>
#         <Key>seahorse.jpg</Key>
#         <LastModified>2021-10-29T16:52:01.000Z</LastModified>
#         <ETag>"A8551F0A5437F43A796FCA7623EE9232"</ETag>
#         <Size>24388</Size>
#         <StorageClass>STANDARD</StorageClass>
#         <Owner>
#             <ID>5035535379748121</ID>
#             <DisplayName>5035535379748121</DisplayName>
#         </Owner>
# 
#     </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");
    $StorageClass = $xml->getChildContent("Contents[i]|StorageClass");
    $ID = $xml->getChildContent("Contents[i]|Owner|ID");
    $DisplayName = $xml->getChildContent("Contents[i]|Owner|DisplayName");
    $i = $i + 1;
}