Perl Requires Chilkat v11.0.0+
Perl
eBay -- Create or Replace Inventory Item (2nd example)
See more eBay Examples
Another example for creating an inventory item, with different data.Chilkat Perl Downloads
use chilkat();
$success = 0;
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
# This example sends the following sample PUT request to create (or replace) a new inventory item.
# {
# "product": {
# "title": "Test listing - do not bid or buy - awesome Apple watch test 2",
# "aspects": {
# "Feature" : ["Water resistance", "GPS"],
# "CPU" : ["Dual-Core Processor"]
# },
# "description": "Test listing - do not bid or buy \n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that\u2019s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ",
# "upc": ["888462079525"],
# "imageUrls": [
# "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975",
# "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390",
# "http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007"
# ]
# },
# "condition": "NEW",
# "packageWeightAndSize": {
# "dimensions": {
# "height": 5,
# "length": 10,
# "width": 15,
# "unit": "INCH"
# },
# "packageType": "MAILING_BOX",
# "weight": {
# "value": 2,
# "unit": "POUND"
# }
# },
# "availability": {
# "shipToLocationAvailability": {
# "quantity": 10
# }
# }
# }
# First, generate the JSON using this code:
$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);
$json->UpdateString("product.title","Test listing - do not bid or buy - awesome Apple watch test 2");
$json->UpdateString("product.aspects.Feature[0]","Water resistance");
$json->UpdateString("product.aspects.Feature[1]","GPS");
$json->UpdateString("product.aspects.CPU[0]","Dual-Core Processor");
$json->UpdateString("product.description","Test listing - do not bid or buy\\n Built-in GPS. Water resistance to 50 meters.1 A new lightning-fast dual-core processor. And a display that�s two times brighter than before. Full of features that help you stay active, motivated, and connected, Apple Watch Series 2 is designed for all the ways you move ");
$json->UpdateString("product.upc[0]","888462079525");
$json->UpdateString("product.imageUrls[0]","http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/S/1/S1/42/S1-42-alu-silver-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758975");
$json->UpdateString("product.imageUrls[1]","http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/stainless/42-stainless-sport-white-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247760390");
$json->UpdateString("product.imageUrls[2]","http://store.storeimages.cdn-apple.com/4973/as-images.apple.com/is/image/AppleInc/aos/published/images/4/2/42/ceramic/42-ceramic-sport-cloud-grid?wid=332&hei=392&fmt=jpeg&qlt=95&op_sharpen=0&resMode=bicub&op_usm=0.5,0.5,0,0&iccEmbed=0&layer=comp&.v=1472247758007");
$json->UpdateString("condition","NEW");
$json->UpdateNumber("packageWeightAndSize.dimensions.height","5");
$json->UpdateNumber("packageWeightAndSize.dimensions.length","10");
$json->UpdateNumber("packageWeightAndSize.dimensions.width","15");
$json->UpdateString("packageWeightAndSize.dimensions.unit","INCH");
$json->UpdateString("packageWeightAndSize.packageType","MAILING_BOX");
$json->UpdateNumber("packageWeightAndSize.weight.value","2");
$json->UpdateString("packageWeightAndSize.weight.unit","POUND");
$json->UpdateNumber("availability.shipToLocationAvailability.quantity","10");
# Show the JSON to be sent:
print $json->emit() . "\r\n";
# Use a previously obtained user token. The token should look something like this:
# "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
$accessToken = "EBAY_ACCESS_TOKEN";
$http = chilkat::CkHttp->new();
# This example uses the sandbox.
# Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
# Note: The last part of the url is the SKU. In this URL, the SKU is "AppleWatch".
$url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/AppleWatch";
$json->put_EmitCompact(1);
# Set your Content-Language to whatever is desired.
$http->SetRequestHeader("Content-Language","en-US");
# Add our access token to the request, which is a header
# having the following format:
# Authorization: Bearer <userAccessToken>
$sbAuth = chilkat::CkStringBuilder->new();
$sbAuth->Append("Bearer ");
$sbAuth->Append($accessToken);
$http->SetRequestHeader("Authorization",$sbAuth->getAsString());
$http->put_Accept("application/json");
$http->put_AllowGzip(0);
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("PUT",$url,$json->emit(),"utf-8","application/json",$resp);
if ($success == 0) {
print $http->lastErrorText() . "\r\n";
exit;
}
print "Response status code = " . $resp->get_StatusCode() . "\r\n";
if ($http->get_LastStatus() != 204) {
print $resp->bodyStr() . "\r\n";
print "Failed" . "\r\n";
exit;
}
# On success (status code = 204), there is no output payload (strResponse will be empty).
print "Inventory item successfully created." . "\r\n";