(Perl) Demonstrate S3_UploadBytes

Demonstrates how to upload a file to the Amazon S3 service.

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

use chilkat();

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

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

$http->put_AwsAccessKey("AWS_ACCESS_KEY");
$http->put_AwsSecretKey("AWS_SECRET_KEY");

$bucketName = "chilkat.qa";
$objectName = "images/sea_creatures/starfish.jpg";
$localFilePath = "qa_data/jpg/starfish.jpg";
$contentType = "image/jpg";

$jpgData = chilkat::CkBinData->new();
$success = $jpgData->LoadFile($localFilePath);
if (!$success) {
    print "Failed to load " . $localFilePath . "\r\n";
    exit;
}

$jpgBytes = chilkat::CkByteData->new();
$success = $jpgData->GetBinary($jpgBytes);

$success = $http->S3_UploadBytes($jpgBytes,$contentType,$bucketName,$objectName);
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Success. File uploaded." . "\r\n";