(Perl) Walmart v3 Bulk Item Setup

Updates items in bulk.

For more information, see https://developer.walmart.com/#/apicenter/marketPlace/latest#bulkCreateUpdateItems

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

use chilkat();

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

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

# Implements the following CURL command:

# curl -X POST \
#   https://marketplace.walmartapis.com/v3/feeds?feedType=item \
#   -H 'WM_SVC.NAME: Walmart Marketplace'
#   -H 'WM_SEC.ACCESS_TOKEN: eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....'
#   -H 'WM_QOS.CORRELATION_ID: b3261d2d-028a-4ef7-8602-633c23200af6'
#   -H 'Content-Type: multipart/form-data'
#   -H 'Accept: application/xml'
#   -F feed=@qa_data/walmart/itemFeed.xml

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_Path("/v3/feeds?feedType=item");
$req->put_ContentType("multipart/form-data");
$success = $req->AddFileForUpload2("feed","qa_data/walmart/itemFeed.xml","application/xml");

$req->AddHeader("WM_QOS.CORRELATION_ID","b3261d2d-028a-4ef7-8602-633c23200af6");
$req->AddHeader("Expect","100-continue");
$req->AddHeader("Content-Type","multipart/form-data");
$req->AddHeader("WM_SEC.ACCESS_TOKEN","eyJraWQiOiIzZjVhYTFmNS1hYWE5LTQzM.....");
$req->AddHeader("Accept","application/xml");
$req->AddHeader("WM_SVC.NAME","Walmart Marketplace");

# resp is a HttpResponse
$resp = $http->SynchronousRequest("marketplace.walmartapis.com",443,1,$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$sbResponseBody = chilkat::CkStringBuilder->new();
$resp->GetBodySb($sbResponseBody);

$xmlResponse = chilkat::CkXml->new();
$xmlResponse->LoadSb($sbResponseBody,1);
print $xmlResponse->getXml() . "\r\n";

# Sample XML response:
# (Sample code for parsing the XML response is shown below)

# <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
# <FeedAcknowledgement xmlns:ns2="http://walmart.com/">
#     <feedId>E9C04D1FFD99479FBC1341D56DD5F930@AQMB_wA</feedId>
# </FeedAcknowledgement>

# Sample code for parsing the XML response...
# Use the following online tool to generate parsing code from sample XML:
# Generate Parsing Code from XML

$FeedAcknowledgement_xmlns_ns2 = $xmlResponse->getAttrValue("xmlns:ns2");
$feedId = $xmlResponse->getChildContent("feedId");