(Perl) Upload File with User-Defined Metadata

Demonstrates how to upload a file with user-defined metadata to the Amazon S3 service.

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

use chilkat();

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

# User-defined metadata are name/value pairs, and are added to the HTTP request header.
# Header names must begin with "x-amz-meta-" to distinguish them from other HTTP headers.
# Note that Amazon S3 stores user-defined metadata keys in lowercase.

# For example, to add genus=Hippocampus, we do this:
$http->SetRequestHeader("x-amz-meta-genus","Hippocampus");

# Add a few more user-metadata key pairs.
$http->SetRequestHeader("x-amz-meta-species","big-belly seahorse");
$http->SetRequestHeader("x-amz-meta-habitat","shallow tropical and temperate waters");

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

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