(Perl) S3 Upload String

Demonstrates how to upload an in-memory string to the Amazon S3 service.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$http = new chilkat::CkHttp();

$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  Insert your access key here:
$http->put_AwsAccessKey("ABQXXABC83ABCDEFVQXX");

#  Insert your secret key here:
$http->put_AwsSecretKey("XXXXYYYYabcdABCD12345678xxxxyyyyzzzz");

$bucketName = "chilkattestbucket";

$objectName = "helloWorld.txt";

#  The charset indicates the character encoding to be used.
#  Internal to the S3_UploadString method, the characters
#  are converted to this encoding prior to uploading.
$charset = "utf-8";

$contentType = "text/plain";

$objectContent = "Hello World!";

#  Upload the string.
#  This creates an object named "helloWorld.txt" in the
#  bucket "chilkattestbucket" containing the text "Hello World!"
$success = $http->S3_UploadString($objectContent,$charset,$contentType,$bucketName,$objectName);

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