Perl

Azure Blob Service - List all Containers in a Storage Account

See more Azure Cloud Storage Examples

Azure Storage Blob Service REST API: Lists all the containers in a storage account. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Azure Blob Service Example: List all of the containers in an account.

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

my $rest = Chilkat2::Rest->new;

# Connect to the Azure Storage Blob Service
my $bTls = 1;
my $port = 443;
my $bAutoReconnect = 1;
# In this example, the storage account name is "chilkat".
my $success = $rest->Connect('chilkat.blob.core.windows.net', $port, $bTls, $bAutoReconnect);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Provide Azure Cloud credentials for the REST call.
my $azAuth = Chilkat2::AuthAzureStorage->new;
$azAuth->AccessKey('AZURE_ACCESS_KEY');
# The account name used here should match the 1st part of the domain passed in the call to Connect (above).
$azAuth->Account('chilkat');
$azAuth->Scheme('SharedKey');
$azAuth->Service('Blob');
# This causes the "x-ms-version: 2021-08-06" header to be automatically added.
$azAuth->XMsVersion('2021-08-06');
$success = $rest->SetAuthAzureStorage($azAuth);

# URI parameters, such as "maxresults", are added by calling AddQueryParam
$success = $rest->AddQueryParam('maxresults', '1000');

# Note: The application does not need to explicitly set the following
# headers: x-ms-date, Authorization.  These headers
# are automatically set by Chilkat.

my $responseStr = $rest->FullRequestNoBody('GET', '/?comp=list');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

# When successful, the Azure Storage service will respond with a 200 response code,
# with an XML body.
if ($rest->ResponseStatusCode != 200) {
    # Examine the request/response to see what happened.
    print 'response status code = ', $rest->ResponseStatusCode, "\n";
    print 'response status text = ', $rest->ResponseStatusText, "\n";
    print 'response header: ', $rest->ResponseHeader, "\n";
    print 'response body (if any): ', $responseStr, "\n";
    print "---\n";
    print 'LastRequestStartLine: ', $rest->LastRequestStartLine, "\n";
    print 'LastRequestHeader: ', $rest->LastRequestHeader, "\n";
    exit;
}

# Load the XML response for parsing.
# A sample XML response containing 2 containers is shown below.
my $xml = Chilkat2::Xml->new;
$success = $xml->LoadXml($responseStr);

print $xml->GetXml(), "\n";

# Iterate over the containers, listing some information about each.
$success = $xml->FindChild2('Containers');
my $numContainers = $xml->NumChildren;
my $i = 0;
while ($i < $numContainers) {
    $success = $xml->GetChild2($i);
    print 'Container Name: ', $xml->GetChildContent('Name'), "\n";
    my $lastModDateStr = $xml->ChilkatPath('Properties|Last-Modified|*');
    print 'Last Modified: ', $lastModDateStr, "\n";
    # The date/time string can be loaded into a CkDateTime object for conversion to other date formats..
    my $dateTime = Chilkat2::DateTime->new;
    $success = $dateTime->SetFromRfc822($lastModDateStr);

    my $leaseState = $xml->ChilkatPath('Properties|LeaseState|*');
    print 'Lease State: ', $leaseState, "\n";

    $success = $xml->GetParent2();
    $i = $i + 1;
}

$success = $xml->GetParent2();

# Sample XML response:

#     <?xml version="1.0" encoding="utf-8" ?>
#     <EnumerationResults ServiceEndpoint="https://chilkat.blob.core.windows.net/">
#         <MaxResults>1000</MaxResults>
#         <Containers>
#             <Container>
#                 <Name>test</Name>
#                 <Properties>
#                     <Last-Modified>Wed, 20 Apr 2016 01:02:25 GMT</Last-Modified>
#                     <Etag>"0x8D368B77024C583"</Etag>
#                     <LeaseStatus>unlocked</LeaseStatus>
#                     <LeaseState>available</LeaseState>
#                 </Properties>
#             </Container>
#             <Container>
#                 <Name>test2</Name>
#                 <Properties>
#                     <Last-Modified>Tue, 03 May 2016 17:13:01 GMT</Last-Modified>
#                     <Etag>"0x8D373762EB6AC85"</Etag>
#                     <LeaseStatus>unlocked</LeaseStatus>
#                     <LeaseState>available</LeaseState>
#                 </Properties>
#             </Container>
#         </Containers>
#         <NextMarker />
#     </EnumerationResults>