Perl Requires Chilkat v9.5.0.65+

How to Generate an Azure Storage Account Shared Access Signature (SAS)

See more Azure Cloud Storage Examples

Shows how to generate a Shared Access Signature (SAS) for an Azure Storage Account. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# --------------------------------------------------------------------------
# Create a Shared Access Signature (SAS) token for an Azure Storage Account.
# --------------------------------------------------------------------------

# See https://docs.microsoft.com/en-us/rest/api/storageservices/fileservices/constructing-an-account-sas
# for details regarding the Azure Storage Account SAS fields.

my $authSas = Chilkat2::AuthAzureSAS->new;
$authSas->AccessKey('AZURE_ACCESS_KEY');

# Specify the format of the string to sign.
# Each comma character in the following string represents a LF ("\n") character.
# The names specified in the StringToSign are replaced with the values specified
# in the subsequent calls to SetTokenParam and SetNonTokenParam,.

# Note: The trailing comma in the StringToSign is intentional and important. This indicates that the
# string to sign will end with a "\n".

# Also note: The names in the StringToSign are case sensitive.  The names
# specified in the 1st argument in the calls to SetNonTokenParam and SetTokenParam should
# match a name listed in StringToSign.
$authSas->StringToSign('accountname,signedpermissions,signedservice,signedresourcetype,signedstart,signedexpiry,signedIP,signedProtocol,signedversion,');

#  The account name is "chilkat".  Use your own account name instead of "chilkat".
#  Also use your own container name instead of "mycontainer".
$authSas->SetNonTokenParam('accountname', 'chilkat');

$authSas->SetTokenParam('signedpermissions', 'sp', 'rwdlacup');
$authSas->SetTokenParam('signedservice', 'ss', 'bfqt');
$authSas->SetTokenParam('signedresourcetype', 'srt', 'sco');

my $dt = Chilkat2::DateTime->new;
$dt->SetFromCurrentSystemTime();
$authSas->SetTokenParam('signedstart', 'st', $dt->GetAsIso8601('YYYY-MM-DDThh:mmTZD', 0));

# This SAS token will be valid for 30 days.
$dt->AddDays(30);
$authSas->SetTokenParam('signedexpiry', 'se', $dt->GetAsIso8601('YYYY-MM-DDThh:mmTZD', 0));

$authSas->SetTokenParam('signedProtocol', 'spr', 'https');

#  Specifiy values and query param names for each field.
#  If a field is not specified, then an empty string will be used for its value.
$authSas->SetTokenParam('signedversion', 'sv', '2015-04-05');

# Note that we did not call SetTokenParam for "signedIP".  For any omitted fields
# the value will default to the empty string.

# Generate the SAS token.
my $sasToken = $authSas->GenerateToken();
if (!$authSas->LastMethodSuccess) {
    print $authSas->LastErrorText, "\n";
    exit;
}

print 'SAS token: ', $sasToken, "\n";

# Save the SAS token to a file.
# We can then use this pre-generated token for future Azure Storage Account operations.
my $fac = Chilkat2::FileAccess->new;
$fac->WriteEntireTextFile('qa_data/tokens/azureStorageAccountSas.txt', $sasToken, 'utf-8', 0);