(Perl) Shopify Query a variant for its inventory item ID

Query a product variant to find the ID of its inventory item.

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#retrieve-the-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");

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

# resp is a HttpResponse
$resp = $http->QuickRequest("GET","https://{shop}.myshopify.com/admin/api/2020-04/products/{product_id}/variants/{variant_id}.json");
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() != 200) {
    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

# {
#   "id": 12195009364024,
#   "product_id": 1321541042232,
#   "title": "xs",
# ...
#   "inventory_item_id": 12250274365496,
# ...
#   "admin_graphql_api_id": "gid://shopify/ProductVariant/12195009364024"
# }
# 

$id = $jsonResponse->IntOf("id");
$product_id = $jsonResponse->IntOf("product_id");
$title = $jsonResponse->stringOf("title");
$inventory_item_id = $jsonResponse->IntOf("inventory_item_id");
$admin_graphql_api_id = $jsonResponse->stringOf("admin_graphql_api_id");