(Perl) S3 Upload File

See more Amazon S3 Examples

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

use chilkat();

$success = 0;

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

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

# Insert your AWS keys here:
$http->put_AwsAccessKey("AWS_ACCESS_KEY");
$http->put_AwsSecretKey("AWS_SECRET_KEY");

$bucketName = "chilkat.ocean";
$objectName = "seahorse.jpg";
$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
$contentType = "image/jpeg";

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

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