(Perl) Finnhub API - Get Stock Quote

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

$success = 0;

# Replace with your actual Finnhub API key.
$apiKey = "YOUR_FINNHUB_API_KEY";
$symbol = "AAPL";

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

# This is the URL without params.
$urlWithoutParams = "https://finnhub.io/api/v1/quote";

$req = chilkat::CkHttpRequest->new();

# Add params that will be sent in the URL.
$req->AddParam("symbol",$symbol);
$req->AddParam("token",$apiKey);

$req->put_HttpVerb("GET");

# Send the request to get the JSON response.
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq($urlWithoutParams,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json = chilkat::CkJsonObject->new();
$resp->GetBodyJson($json);

$statusCode = $resp->get_StatusCode();
print "response status code: " . $statusCode . "\r\n";

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# Sample result:

# {
#   "c": 248.8,
#   "d": -4.09,
#   "dp": -1.6173,
#   "h": 255.493,
#   "l": 248.07,
#   "o": 253.9,
#   "pc": 252.89,
#   "t": 1774641600
# }

if ($statusCode == 200) {
    # Add the symbol to the top of the result.
    $json->AddStringAt(0,"symbol",$symbol);

    # Rename members for clarification.
    $json->Rename("c","currentPrice");
    $json->Rename("d","change");
    $json->Rename("dp","percentChange");
    $json->Rename("h","high");
    $json->Rename("l","low");
    $json->Rename("o","open");
    $json->Rename("pc","prevClose");
    $json->Rename("t","unixTime");

    print $json->emit() . "\r\n";

}
else {
    print "Failed" . "\r\n";
}