Perl

Backblaze S3 Upload Binary

See more Backblaze S3 Examples

Demonstrates how to upload the in-memory binary data to an Backblaze bucket. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $http = Chilkat2::Http->new;

# keyID = Access Key ID or Access Key
$http->AwsAccessKey('access-key');

# applicationKey = Secret Access Key or Secret Key
$http->AwsSecretKey('secret-key');

# Region is the 2nd part of your S3 Endpoint
$http->AwsEndpoint('s3.us-west-002.backblazeb2.com');

my $bucketName = 'chilkat-test-123';
my $objectName = 'starfish.jpg';

# The Content-Type has the form  type/subtype, such as application/pdf, application/json, image/jpeg, etc.
# See Explaining Content-Types
my $contentType = 'image/jpeg';

$http->KeepResponseBody(1);

my $jpgData = Chilkat2::BinData->new;
my $success = $jpgData->LoadFile('qa_data/jpg/starfish.jpg');

$success = $http->S3_UploadBd($jpgData, $contentType, $bucketName, $objectName);
if (!$success) {
    print $http->LastErrorText, "\n";

    my $xml = Chilkat2::Xml->new;
    $xml->LoadXml($http->LastResponseBody);
    print $xml->GetXml(), "\n";
} else {
    print "JPG uploaded.\n";
}