Perl

Simple GET using REST

See more REST Examples

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

use chilkat();

$success = 0;

# 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";