Perl

S3 - Working with Buckets in a Region

See more Amazon S3 (new) Examples

Demonstrates how to work with S3 buckets located in a particular region. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# When usig the REST class to access an S3 bucket that has been created in a particular region,
# there are three important things to remember:
#
# 1) Connect to the domain that includes the region.  For example, instead of connecting to
#    "s3.amazonaws.com", connect to "s3.eu-central-1.amazonaws.com" if your bucket is in the EU Frankfurt region.
#    See http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region   for a list of S3 region domains (endpoints)
#
# 2) Set the AuthAws.Region property equal to the region, such as "eu-central-1".
#
# 3) Include the region in request's Host header.
#

# This example will upload to a bucket in the eu-central-1 region.
#
my $rest = Chilkat2::Rest->new;

# Connect to the Amazon AWS REST server.
my $bTls = 1;
my $port = 443;
my $bAutoReconnect = 1;
my $success = $rest->Connect('s3.eu-central-1.amazonaws.com', $port, $bTls, $bAutoReconnect);

# Provide AWS credentials for the REST call.
my $authAws = Chilkat2::AuthAws->new;
$authAws->AccessKey('AWS_ACCESS_KEY');
$authAws->SecretKey('AWS_SECRET_KEY');
$authAws->ServiceName('s3');
$authAws->Region('eu-central-1');
$success = $rest->SetAuthAws($authAws);

# Set the bucket name via the HOST header.
# In this case, the bucket name is "chilkateufrankfurt" (which was created in the eu-central-1 region)
$rest->Host('chilkateufrankfurt.s3.eu-central-1.amazonaws.com');

my $fileData = Chilkat2::BinData->new;
$success = $fileData->LoadFile('qa_data/jpg/starfish.jpg');

# Upload the file to Amazon S3.
my $responseBody = Chilkat2::StringBuilder->new;
$success = $rest->FullRequestBd('PUT', '/starfish.jpg', $fileData, $responseBody);
if (!$success) {
    print $rest->LastErrorText, "\n";
    exit;
}

# Did we get a 200 response indicating success?
my $statusCode = $rest->ResponseStatusCode;
if ($statusCode != 200) {
    print 'Error response: ', $responseBody->GetAsString(), "\n";
    print 'Status code: ', $statusCode, ', Status text: ', $rest->ResponseStatusText, "\n";
    exit;
}

print "File successfully uploaded.\n";