Perl

Azure Storage Blob Simple Upload

See more Azure Cloud Storage Examples

Demonstrates the simplest possible upload to Azure Storage. The contents of a string variable are uploaded to a blob file in Azure Cloud Storage. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# Set some request headers.
$success = $rest->AddHeader('x-ms-blob-content-disposition', 'attachment; filename="helloWorld.txt"');
$success = $rest->AddHeader('x-ms-blob-type', 'BlockBlob');
$success = $rest->AddHeader('x-ms-meta-m1', 'v1');
$success = $rest->AddHeader('x-ms-meta-m2', 'v2');

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

# Upload the string "Hello World!" to the file named "helloWorld.txt" located in the container named "test".
my $responseStr = $rest->FullRequestString('PUT', '/test/helloWorld.txt', 'Hello World!');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

# When successful, the Azure Storage service will respond with a 201 response code,
# with an empty body.  Therefore, in the success condition, the responseStr is empty.
if ($rest->ResponseStatusCode == 201) {
    print "File uploaded.\n";
} else {
    # 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";
}