(Perl) REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

Demonstrates how the autoReconnect argument to the Connect method is used.

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();

# This example demonstrates the usage of the autoReconnect argument to the Connect method.
# When autoReconnect is on, subsequent REST method calls will automatically re-connect
# if necessary, using the same information (domain/IP address, port number, and TLS).
$bTls = 0;
$port = 80;
$bAutoReconnect = 1;
$success = $rest->Connect("dev.markitondemand.com",$port,$bTls,$bAutoReconnect);

# Get a stock quote:
$success = $rest->AddQueryParam("symbol","AAPL");
$responseXml = $rest->fullRequestNoBody("GET","/MODApis/Api/v2/Quote");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$success = $xml->LoadXml($responseXml);
print "AAPL LastPrice: " . $xml->getChildContent("LastPrice") . "\r\n";

# Get another stock quote.  If a new HTTP connection is required,
# the REST object will automatically connect using the same parameters.
$success = $rest->AddQueryParam("symbol","AMZN");
$responseXml = $rest->fullRequestNoBody("GET","/MODApis/Api/v2/Quote");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$success = $xml->LoadXml($responseXml);
print "AMZN LastPrice: " . $xml->getChildContent("LastPrice") . "\r\n";