Perl

S3 Upload File

See more Amazon S3 Examples

Demonstrates how to upload a file to the Amazon S3 service. 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;

# Insert your AWS keys here:
$http->AwsAccessKey('AWS_ACCESS_KEY');
$http->AwsSecretKey('AWS_SECRET_KEY');

my $bucketName = 'chilkat.ocean';
my $objectName = 'seahorse.jpg';
my $localFilePath = 'qa_data/jpg/seahorse.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';

my $success = $http->S3_UploadFile($localFilePath, $contentType, $bucketName, $objectName);

if (!$success) {
    print $http->LastErrorText, "\n";
} else {
    print "File uploaded.\n";
}