(Perl) S3 Upload a File with Public Read Permissions

Demonstrates how to upload a file to the Amazon S3 service with the x-amz-acl request header set to "public-read" to allow the file to be publicly downloadable.

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();

# 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";
$contentType = "image/jpg";

# Add the x-amz-acl request header to make the file publicly readable.
$http->SetRequestHeader("x-amz-acl","public-read");

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

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

if ($http->get_LastStatus() == 200) {
    print "File uploaded." . "\r\n";
}
else {
    print "Response status code: " . $http->get_LastStatus() . "\r\n";
    print $http->lastResponseBody() . "\r\n";
}