(Perl) Binary.com Tick Stream

Tick Stream Request -- Initiate a continuous stream of spot price updates for a given symbol.

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 ws.binaryws.com
$success = $rest->Connect("ws.binaryws.com",443,1,0);
$ws->UseConnection($rest);
$ws->AddClientHeaders();

#  My app_id is 12332.  You'll wnat to use your own...
$responseBody = $rest->fullRequestNoBody("GET","/websockets/v3?app_id=12332");
$success = $ws->ValidateServerHandshake();
if ($success != 1) {
    print $ws->lastErrorText() . "\r\n";
    print $responseBody . "\r\n";
    print $rest->responseHeader() . "\r\n";
    exit;
}

#  Build and send the following message:

#  {
#    "ticks": "R_50",
#    "subscribe": 1
#  }

$json = chilkat::CkJsonObject->new();
$json->AppendString("ticks","R_50");
$json->AppendInt("subscribe",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;
}

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

#  Begin reading the tick stream response.
#  We'll just read the 1st 10 updates and then exit..
$receivedFinalFrame = 0;
$numTicksReceived = 0;
while ($numTicksReceived < 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();

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

        $numTicksReceived = $numTicksReceived + 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:

#  {
#    "echo_req": {
#      "subscribe": 1,
#      "ticks": "R_50"
#    },
#    "msg_type": "tick",
#    "tick": {
#      "ask": "373.8725",
#      "bid": "373.8325",
#      "epoch": "1517437456",
#      "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
#      "quote": "373.8525",
#      "symbol": "R_50"
#    }
#  }
# 
#  {
#    "echo_req": {
#      "subscribe": 1,
#      "ticks": "R_50"
#    },
#    "msg_type": "tick",
#    "tick": {
#      "ask": "373.7952",
#      "bid": "373.7552",
#      "epoch": "1517437458",
#      "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
#      "quote": "373.7752",
#      "symbol": "R_50"
#    }
#  }
# 
#  {
#    "echo_req": {
#      "subscribe": 1,
#      "ticks": "R_50"
#    },
#    "msg_type": "tick",
#    "tick": {
#      "ask": "373.8638",
#      "bid": "373.8238",
#      "epoch": "1517437460",
#      "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
#      "quote": "373.8438",
#      "symbol": "R_50"
#    }
#  }
# 
#  {
#    "echo_req": {
#      "subscribe": 1,
#      "ticks": "R_50"
#    },
#    "msg_type": "tick",
#    "tick": {
#      "ask": "373.7636",
#      "bid": "373.7236",
#      "epoch": "1517437462",
#      "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
#      "quote": "373.7436",
#      "symbol": "R_50"
#    }
#  }
# 
#  {
#    "echo_req": {
#      "subscribe": 1,
#      "ticks": "R_50"
#    },
#    "msg_type": "tick",
#    "tick": {
#      "ask": "373.6870",
#      "bid": "373.6470",
#      "epoch": "1517437464",
#      "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
#      "quote": "373.6670",
#      "symbol": "R_50"
#    }
#  }
# 
#  Success.