Perl

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

See more REST Examples

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

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $rest = Chilkat2::Rest->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).
my $bTls = 0;
my $port = 80;
my $bAutoReconnect = 1;
my $success = $rest->Connect('dev.markitondemand.com', $port, $bTls, $bAutoReconnect);

# Get a stock quote:
$success = $rest->AddQueryParam('symbol', 'AAPL');
my $responseXml = $rest->FullRequestNoBody('GET', '/MODApis/Api/v2/Quote');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $xml = Chilkat2::Xml->new;
$success = $xml->LoadXml($responseXml);
print 'AAPL LastPrice: ', $xml->GetChildContent('LastPrice'), "\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->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

$success = $xml->LoadXml($responseXml);
print 'AMZN LastPrice: ', $xml->GetChildContent('LastPrice'), "\n";