(Perl) Walmart - Get Inventory for an Item

Demonstrates how to get inventory for an item and parse the result.

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

use chilkat();

# ---------------------------------------------------------------------------------------------------------
# Note: This example is deprecated.  The Walmart API no longer uses the Signature method of authenticating.
# Walmart now uses OAuth2.  
# ---------------------------------------------------------------------------------------------------------

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

# Sends the following GET request:
# GET https://marketplace.walmartapis.com/v2/inventory?sku={SKU}

$sbUrl = chilkat::CkStringBuilder->new();
$success = $sbUrl->Append("https://marketplace.walmartapis.com/v2/inventory?sku={SKU}");
$numReplaced = $sbUrl->Replace("{SKU}","HOPP~904~51041");

$requestMethod = "GET";

# First we need to generate a signature for our request.
# The signature needs to be re-generated for each new Walmart HTTP request.
$authUtil = chilkat::CkAuthUtil->new();

$wmConsumerId = "WALMART_CONSUMER_ID";
$wmPrivateKey = "WALMART_PRIVATE_KEY";
$jsonStr = $authUtil->walmartSignature($sbUrl->getAsString(),$wmConsumerId,$wmPrivateKey,$requestMethod);
if ($authUtil->get_LastMethodSuccess() != 1) {
    print $authUtil->lastErrorText() . "\r\n";
    exit;
}

# The JSON returned by WalmartSignature contains the values to be used in the following
# header fields: WM_SEC.AUTH_SIGNATURE, WM_SEC.TIMESTAMP, and WM_QOS.CORRELATION_ID
$json = chilkat::CkJsonObject->new();
$json->Load($jsonStr);

$http = chilkat::CkHttp->new();
$http->SetRequestHeader("WM_SVC.NAME","Walmart Marketplace");
$http->SetRequestHeader("WM_QOS.CORRELATION_ID",$json->stringOf("correlation_id"));
$http->SetRequestHeader("WM_SEC.TIMESTAMP",$json->stringOf("timestamp"));
$http->SetRequestHeader("WM_SEC.AUTH_SIGNATURE",$json->stringOf("signature"));
$http->SetRequestHeader("WM_CONSUMER.ID",$wmConsumerId);
$http->put_Accept("application/xml");

# Note: Do not explicitly set the "Host" header.  Chilkat will set it automatically.

$xmlStr = $http->quickGetStr($sbUrl->getAsString());
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$xml->LoadXml($xmlStr);

# A successful response should have a 200 response status
if ($http->get_LastStatus() != 200) {
    print $xml->getXml() . "\r\n";
    print "Response Status Code: " . $http->get_LastStatus() . "\r\n";
    print "Failed." . "\r\n";
    exit;
}

# A sample XML response is shown below..
print $xml->getXml() . "\r\n";
print "--" . "\r\n";

# To get the quantity:
$quantity = $xml->GetChildIntValue("quantity|amount");
print "quantity = " . $quantity . "\r\n";

# ---------------------------------------
# Sample XML response
# ---------------------------------------

# <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
# <inventory xmlns="http://walmart.com/">
#     <sku>HOPP~904~51041</sku>
#     <quantity>
#         <unit>EACH</unit>
#         <amount>234</amount>
#     </quantity>
#     <fulfillmentLagTime>5</fulfillmentLagTime>
# </inventory>