Perl

Example: Http.SetUrlVar method

Demonstrates the HTTP SetUrlVar method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $http = Chilkat2::Http->new;

my $url = 'https://finnhub.io/api/v1/quote?symbol={$symbol}&token={$api_key}';

# When the request is sent, the {$symbol} is replaced with "MSFT"
# and the {$api_key} is replaced with "1234567890ABCDEF"
$http->SetUrlVar('symbol', 'MSFT');
$http->SetUrlVar('api_key', '1234567890ABCDEF');

my $sbJson = Chilkat2::StringBuilder->new;
my $success = $http->QuickGetSb($url, $sbJson);
if (!$success) {
    print $http->LastErrorText, "\n";
    exit;
}

my $statusCode = $http->LastStatus;
if ($statusCode != 200) {
    print 'Status code: ', $statusCode, "\n";
    print "Error Message:\n";
    print $sbJson->GetAsString(), "\n";
} else {
    print "JSON Stock Quote:\n";
    print $sbJson->GetAsString(), "\n";
}

# Output:

# JSON Stock Quote:
# {"c":522.98,"d":0.5,"dp":0.0957,"h":524.51,"l":520.86,"o":524.28,"pc":522.48,"t":1755271948}