(Perl) WebSocket Binance Trade Stream (subscribe and receive updates)

Subscribe to a binance trade stream and receive updates.

For more information, see https://binance-docs.github.io/apidocs/spot/en/#live-subscribing-unsubscribing-to-streams

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.

$ws = chilkat::CkWebSocket->new();

# For brevity, this example does not check for errors when etablishing the WebSocket connection.
# See Establish WebSocket Connection for more complete sample code for making the connection.

$rest = chilkat::CkRest->new();

# Connect to wss://stream.binance.com:9443
$success = $rest->Connect("stream.binance.com",9443,1,0);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$success = $ws->UseConnection($rest);
if ($success == 0) {
    print $ws->lastErrorText() . "\r\n";
    exit;
}

$ws->AddClientHeaders();

#  Raw streams are accessed at /ws/<streamName>
$responseBody = $rest->fullRequestNoBody("GET","/ws/btcusdt");
if ($rest->get_LastMethodSuccess() == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$success = $ws->ValidateServerHandshake();
if ($success != 1) {
    print $ws->lastErrorText() . "\r\n";
    print $responseBody . "\r\n";
    print $rest->responseHeader() . "\r\n";
    exit;
}

print $responseBody . "\r\n";
print $rest->responseHeader() . "\r\n";

# POST JSON to subscribe to a stream

# {
# "method": "SUBSCRIBE",
# "params":
# [
# "btcusdt@aggTrade",
# "btcusdt@depth"
# ],
# "id": 1
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("method","SUBSCRIBE");
$json->UpdateString("params[0]",'btcusdt@aggTrade');
$json->UpdateString("params[1]",'btcusdt@depth');
$json->UpdateInt("id",1);

# Send a full message in a single frame
$finalFrame = 1;
$success = $ws->SendFrame($json->emit(),$finalFrame);
if ($success != 1) {
    print $ws->lastErrorText() . "\r\n";
    exit;
}

$jsonTradeData = chilkat::CkJsonObject->new();
$jsonTradeData->put_EmitCompact(0);

# Begin reading the trade stream response.
# We'll just read the 1st 10 updates and then exit..
$receivedFinalFrame = 0;
$numTradesReceived = 0;
while ($numTradesReceived < 5) {

    $success = $ws->ReadFrame();
    if ($success != 1) {
        print "Failed to receive a frame" . "\r\n";
        print "ReadFrame fail reason = " . $ws->get_ReadFrameFailReason() . "\r\n";
        print $ws->lastErrorText() . "\r\n";
        exit;
    }

    # The responses we desire are in Text frames, where the opcode = 1.
    if ($ws->get_FrameOpcodeInt() == 1) {
        $receivedJson = $ws->getFrameData();

        $jsonTradeData->Load($receivedJson);
        print $jsonTradeData->emit() . "\r\n";

        $numTradesReceived = $numTradesReceived + 1;
    }

}

# Close the websocket connection.
$success = $ws->SendClose(1,1000,"Closing this websocket.");
if ($success != 1) {
    print $ws->lastErrorText() . "\r\n";
    exit;
}

# Read the Close response.
$success = $ws->ReadFrame();
if ($success != 1) {
    print "ReadFrame fail reason = " . $ws->get_ReadFrameFailReason() . "\r\n";
    print $ws->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";

# The output of the above code is shown here: