Perl
Perl
Binary.com Tick Stream
See more WebSocket Examples
Tick Stream Request -- Initiate a continuous stream of spot price updates for a given symbol.Chilkat Perl Downloads
use chilkat();
$success = 0;
# 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.