Perl

Example: Http.SetUrlVar method

Demonstrates the HTTP SetUrlVar method. Perl

use chilkat();

$success = 0;

$http = chilkat::CkHttp->new();

$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");

$sbJson = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb($url,$sbJson);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$statusCode = $http->get_LastStatus();
if ($statusCode != 200) {
    print "Status code: " . $statusCode . "\r\n";
    print "Error Message:" . "\r\n";
    print $sbJson->getAsString() . "\r\n";
}
else {
    print "JSON Stock Quote:" . "\r\n";
    print $sbJson->getAsString() . "\r\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}