(Perl) Duplicate curl POST with JSON Body

Demonstrates how to duplicate the following curl command, which sends a POST w/ a JSON body.

curl -H "Content-Type: application/json" -i https://my-store.com/wp-json/wc/v2/products/batch?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET  -d @test_product.txt

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.

$rest = chilkat::CkRest->new();

# Connect using TLS.
$bAutoReconnect = 1;
$success = $rest->Connect("my-store.com",443,1,$bAutoReconnect);

# test_product.txt contains this string:
$sbJson = chilkat::CkStringBuilder->new();
$sbJson->Append("{\"create\": [{\"name\": \"Woo Single #1\",\"type\": \"simple\",\"regular_price\": \"21.99\"}]}");

# Add query parameters

# Add the Content-Type HTTP request header.
$success = $rest->AddHeader("Content-Type","application/json");

$jsonResponseStr = $rest->fullRequestString("POST","/wp-json/wc/v2/products/batch?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET",$sbJson->getAsString());
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Show the JSON response.  (See below for a sample JSON response.)
print "Json Response: " . $jsonResponseStr . "\r\n";