(Perl) Generate S3 Signed URL

Demonstrates how to generate a pre-signed S3 URL.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

# Insert your access key here:
$http->put_AwsAccessKey("ABQXXABC83ABCDEFVQXX");

# Insert your secret key here:
$http->put_AwsSecretKey("XXXXYYYYabcdABCD12345678xxxxyyyyzzzz");

$bucketName = "testbucket";
$path = "starfish.jpg";

$expireTime = chilkat::CkDateTime->new();
$expireTime->SetFromCurrentSystemTime();
$bLocalTime = 0;
# Set the expiration time to 1 hour from the current time.
$expireTime->SetFromUnixTime($bLocalTime,$expireTime->GetAsUnixTime($bLocalTime) + 3600);

$signedUrl = $http->s3_GenerateUrl($bucketName,$path,$expireTime);

if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
}
else {
    print $signedUrl . "\r\n";
}