(Perl) Transition from Http.S3_DeleteMultipleObjects to Http.S3_DeleteObjects

Provides instructions for replacing deprecated S3_DeleteMultipleObjects method calls with S3_DeleteObjects.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$http = chilkat::CkHttp->new();

$bucketName = "testBucket";

$sa = chilkat::CkStringArray->new();
$sa->Append("starfish.jpg");
$sa->Append("clam.jpg");
$sa->Append("shark.jpg");

$st = chilkat::CkStringTable->new();
$st->Append("starfish.jpg");
$st->Append("clam.jpg");
$st->Append("shark.jpg");

# ------------------------------------------------------------------------
# The S3_DeleteMultipleObjects method is deprecated:

# responseObj is a HttpResponse
$responseObj = $http->S3_DeleteMultipleObjects($bucketName,$sa);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

# ------------------------------------------------------------------------
# Do the equivalent using S3_DeleteObjects.
# Your application creates a new, empty HttpResponse object which is passed 
# in the last argument and filled upon success.

$responseOut = chilkat::CkHttpResponse->new();
$success = $http->S3_DeleteObjects($bucketName,$st,$responseOut);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}