Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) S3 Upload String using AWS Signature Version 2Example to upload the contents of a string to the Amazon S3 service, using the older AWS Signature Version 2.
use chilkat(); # Demonstrates how to use older AWS S3 Signature Version 2 for uploading the contents # of a string variable to an object in a bucket. # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $rest = chilkat::CkRest->new(); # Connect to the Amazon AWS REST server. $bTls = 1; $port = 443; $bAutoReconnect = 1; # The file is uploaded to the bucket named "chilkat100", which becomes part of the domain: $success = $rest->Connect("chilkat100.s3.amazonaws.com",$port,$bTls,$bAutoReconnect); # ---------------------------------------------------------------------------- # Important: For buckets created in regions outside us-east-1, # there are three important changes that need to be made. # See Working with S3 Buckets in Non-us-east-1 Regions for the details. # ---------------------------------------------------------------------------- # Provide AWS credentials for the REST call. $authAws = chilkat::CkAuthAws->new(); $authAws->put_AccessKey("AWS_ACCESS_KEY"); $authAws->put_SecretKey("AWS_SECRET_KEY"); $authAws->put_ServiceName("s3"); # For AWS Signature Version 2, the following two properties need to be set: $authAws->put_SignatureVersion(2); # See http://docs.aws.amazon.com/AmazonS3/latest/dev/RESTAuthentication.html#ConstructingTheCanonicalizedResourceElement # The bucket is "chilkat100", and the uriPath is "/hamlet_play.xml", which must match # the URI path passed to the FullRequestString method below. $authAws->put_CanonicalizedResourceV2("/chilkat100/hamlet_play.xml"); $success = $rest->SetAuthAws($authAws); # Load a text file into memory. $fac = chilkat::CkFileAccess->new(); $fileContents = $fac->readEntireTextFile("qa_data/xml/hamlet.xml","utf-8"); if ($fac->get_LastMethodSuccess() != 1) { print $fac->lastErrorText() . "\r\n"; exit; } # To send the file in gzip or deflate compressed format, set the Content-Encoding request # header to "gzip" or "deflate". (this is optional) $success = $rest->AddHeader("Content-Encoding","gzip"); # Indicate the Content-Type of our upload. (This is optional) $success = $rest->AddHeader("Content-Type","text/xml"); # We can add an "Expect: 100-continue" header so that if the request is rejected # by the server immediately after receiving the request header, it can respond # and the client (Chilkat) can avoid sending the file data. # (this is optional) $success = $rest->AddHeader("Expect","100-continue"); # Upload the file to Amazon S3. $responseBodyStr = $rest->fullRequestString("PUT","/hamlet_play.xml",$fileContents); if ($rest->get_LastMethodSuccess() != 1) { print $rest->lastErrorText() . "\r\n"; exit; } # Did we get a 200 response indicating success? $statusCode = $rest->get_ResponseStatusCode(); if ($statusCode != 200) { print "Error response: " . $responseBodyStr . "\r\n"; print "Status code: " . $statusCode . ", Status text: " . $rest->responseStatusText() . "\r\n"; exit; } print "File successfully uploaded." . "\r\n"; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.