(Perl) Simple GET using REST

Demonstrates how to do a simple HTTP GET request using REST.

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.

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

# Connect to the REST server.
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("my-store.com",$port,$bTls,$bAutoReconnect);

$responseJson = $rest->fullRequestNoBody("GET","/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print $responseJson . "\r\n";
print "----" . "\r\n";

# We can alternatively do this:
$rest->ClearAllQueryParams();
$rest->AddQueryParam("consumer_key","YOUR_CONSUMER_KEY");
$rest->AddQueryParam("consumer_secret","YOUR_CONSUMER_SECRET");
$responseJson = $rest->fullRequestNoBody("GET","/wp-json/wc/v1/products");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print $responseJson . "\r\n";