Perl

Use an Azure Service SAS

See more Azure Cloud Storage Examples

Shows how to use an Azure Service SAS. (In this case, it is an SAS for a blob.) Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Azure Blob Service Example: Upload binary bytes to a block blob.
# This uses a Service SAS for Authorization.

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

# ----------------------------------------------------------------------------------------------
# The code above this comment could be placed inside a function/subroutine within the application
# because the connection does not need to be made for every request.  Once the connection is made
# the app may send many requests..
# ----------------------------------------------------------------------------------------------

# 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.

# Let's load a previously computed Azure Storage Account SAS token and use it.
# See How to Create an Azure Service SAS
my $sbToken = Chilkat2::StringBuilder->new;
$success = $sbToken->LoadFile('qa_data/tokens/azureStorageServiceSas.txt', 'utf-8');
if (!$success) {
    print "Failed to load SAS token.\n";
    exit;
}

# Add the Shared Access Signature query params for authorization.
$rest->AddQueryParams($sbToken->GetAsString());

# IMPORTANT: Make sure to set the x-ms-blob-type header:
$success = $rest->AddHeader('x-ms-blob-type', 'BlockBlob');

# IMPORTANT: Make sure to add the x-ms-date header.
# When the header name is "x-ms-date", Chilkat will recognize the keyword "NOW"
# and will substitute the current system date/time formatted as required by Microsoft.
$success = $rest->AddHeader('x-ms-date', 'NOW');

# For this example, we'll just load a JPG file into memory..
my $binData = Chilkat2::BinData->new;
$success = $binData->LoadFile('qa_data/jpg/starfish.jpg');
if (!$success) {
    print "Failed to load JPG file.\n";
    exit;
}

# Note: The maximum size of a block blob created by uploading in a single step is 64MB.
# For larger files, the upload must be broken up into blocks.  There is another Chilkat example for that..
my $sbResponse = Chilkat2::StringBuilder->new;
$success = $rest->FullRequestBd('PUT', '/mycontainer/starfish.jpg', $binData, $sbResponse);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# When successful, the Azure Storage service will respond with a 201 response status code,
# with no response body.
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): ', $sbResponse->GetAsString(), "\n";
    print "---\n";
    print 'LastRequestStartLine: ', $rest->LastRequestStartLine, "\n";
    print 'LastRequestHeader: ', $rest->LastRequestHeader, "\n";
    print "Failed.\n";
    exit;
}

print "Success.\n";