Perl

Azure Storage: Create Container

See more Azure Cloud Storage Examples

Azure Storage Blob Service REST API: Sample code to create a new container under a specified account. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Azure Blob Service Example: Create Container
# See also: https://msdn.microsoft.com/en-us/library/azure/dd179468.aspx

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

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

# The expected success response is a 201 response status code with no response body.
# In this example, the container to be created is named "mycontainer".
my $responseStr = $rest->FullRequestNoBody('PUT', '/mycontainer?restype=container');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

# When successful, the Azure Storage service will respond with a 201 response code,
# with no response body.

# If the container with the same name already exists, then the operation will fail.
if ($rest->ResponseStatusCode != 201) {
    # 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;
}

# If desired, we can examine some of the response headers:
print 'ETag: ', $rest->ResponseHdrByName('ETag'), "\n";
print 'Last-Modified: ', $rest->ResponseHdrByName('Last-Modified'), "\n";

print "Success: Container Created.\n";