Perl

Azure Storage: Download Blob to File

See more Azure Cloud Storage Examples

Sample code to download an Azure blob to a file. 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);

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

# Setup a file stream for the download
my $fileStream = Chilkat2::Stream->new;
$fileStream->SinkFile('C:/temp/qa_output/starfish.jpg');

# Indicate that the call to FullRequestNoBody should send the response body
# to fileStream if the response status code is 200.
# If a non-success response status code is received, then nothing
# is streamed to the output file and the error response is returned by FullRequestNoBody.
my $expectedStatus = 200;
$rest->SetResponseBodyStream($expectedStatus, 1, $fileStream);

# The Azure blob container is "test", the file is "starfish.jpg"
my $responseStr = $rest->FullRequestNoBody('GET', '/test/starfish.jpg');
if (!$rest->LastMethodSuccess) {
    # 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;
}

print "Success.\n";