(Perl) Shopify Set inventory levels to a certain amount

Use the set endpoint with the location ID and inventory item ID to set an inventory level to a specific value.

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#update-inventory-levels-for-a-product-variant

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.

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

$http->put_Login("SHOPIFY_PRIVATE_API_KEY");
$http->put_Password("SHOPIFY_PRIVATE_API_KEY");

# Also see: How to retrieve inventory levels

$http->put_Accept("application/json");

# The following JSON is sent in the request body:

# {
#   "location_id": 6884556842,
#   "inventory_item_id": 12250274365496,
#   "available": 1
# }

# Use this online tool to generate the code from sample JSON: 
# Generate Code to Create JSON

$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateInt("location_id",6884556842);
$jsonRequestBody->UpdateInt("inventory_item_id",12250274365496);
$jsonRequestBody->UpdateInt("available",1);

$url = "https://{shop}.myshopify.com/admin/api/2020-04/inventory_levels/set.json";

# resp is a HttpResponse
$resp = $http->PText("POST",$url,$jsonRequestBody->emit(),"utf-8","application/json",0,0);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status Code: " . $resp->get_StatusCode() . "\r\n";

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->Load($resp->bodyStr());
$jsonResponse->put_EmitCompact(0);
print $jsonResponse->emit() . "\r\n";

if ($resp->get_StatusCode() >= 300) {
    print "Failed." . "\r\n";

    exit;
}

# Sample output...
# (See the parsing code below..)
# 
# Use the this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

# {
#   "inventory_level": {
#     "inventory_item_id": 12250274365496,
#     "location_id": 6884556842,
#     "available": 1,
#     "updated_at": "2018-06-26T15:44:33-04:00",
# ...
#     "admin_graphql_api_id": "gid://shopify/InventoryLevel/6485147690?inventory_item_id=12250274365496"
# ...
#   }
# }
# 

$inventory_levelInventory_item_id = $jsonResponse->IntOf("inventory_level.inventory_item_id");
$inventory_levelLocation_id = $jsonResponse->IntOf("inventory_level.location_id");
$inventory_levelAvailable = $jsonResponse->IntOf("inventory_level.available");
$inventory_levelUpdated_at = $jsonResponse->stringOf("inventory_level.updated_at");
$inventory_levelAdmin_graphql_api_id = $jsonResponse->stringOf("inventory_level.admin_graphql_api_id");