(Perl) Amazon SP-API Upload Feed

See more Amazon SP-API Examples

Upload a feed document to the feed previously created.

For more information, see https://developer-docs.amazon.com/sp-api/docs/feeds-api-v2021-06-30-use-case-guide#step-2-construct-a-feed

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

use chilkat();

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

# Load your own feed data file.
$sbRequestBody = chilkat::CkStringBuilder->new();
$success = $sbRequestBody->LoadFile("C:/AAWorkarea/test-despatch-upload.txt","utf-8");
if ($success == 0) {
    print "Failed to load test-despatch-upload.txt." . "\r\n";
    exit;
}

# The SP-API Create Feed example returned JSON such as this.

# {
#   "feedDocumentId": "amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ",
#   "url": "https://tortuga-prod-eu.s3-eu-west-1.amazonaws.com/%2FNinetyDays/amzn1.tortuga.4.eu.8fb6f9c4-XXXX-4e7f-824f-XXXXXXXXXXXXX.ZZZZZZZZZZZZZZ?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Date=20230222T014944Z&X-Amz-SignedHeaders=content-type%3Bhost&X-Amz-Expires=300&X-Amz-Credential=XXXXXXXXXXXXXXXXX%2F20230222%2Feu-west-1%2Fs3%2Faws4_request&X-Amz-Signature=XXXXXXXXXXXXXXXXXXXXXXXXXXXX"
# }

# Load the JSON feed file created by this example:  SP-API Create Feed
$jsonFeedInfo = chilkat::CkJsonObject->new();
$success = $jsonFeedInfo->LoadFile("qa_data/json/sp_api_feed_upload_info.json");
if ($success == 0) {
    print $jsonFeedInfo->lastErrorText() . "\r\n";
    exit;
}

# Get the pre-signed URL
$url = $jsonFeedInfo->stringOf("url");

# We can use the Chilkat HTTP object because the URL is pre-signed.
# We don't need to add our own AWS authentication because it's already in the pre-signed URL,
# which is only valid for short amount of time.
$http = chilkat::CkHttp->new();

# NOTE: The string "text/tab-separated-values; charset=UTF-8" must match exactly the contentType specified when creating the feed.
# resp is a HttpResponse
$resp = $http->PTextSb("PUT",$url,$sbRequestBody,"utf-8","text/tab-separated-values; charset=UTF-8",0,0);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "status code = " . $resp->get_StatusCode() . "\r\n";
print "status text = " . $resp->statusText() . "\r\n";
print "response body:" . "\r\n";
print $resp->bodyStr() . "\r\n";