php实现与erlang的二进制通讯实例解析
前端之家收集整理的这篇文章主要介绍了
php实现与erlang的二进制通讯实例解析，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
@H_403_0@一般来说网络通讯常用的方式有2种：文本通讯和二进制通讯。PHP与erlang之间实现文本通讯比较简单，这里就不做讨论，本文主要讨论的是PHP与erlang实现二进制通讯的实现方法。实现步骤如下：
@H_
403_0@
erlang端代码：
@H_
403_0@<div class="codetitle">
<a style="CURSOR: pointer" data="36823" class="copybut" id="copybut36823" onclick="doCopy('code36823')"> 代码如下: <div class="codebody" id="code36823">-module(server).
-export([start/0]).
@H_
4030@-define( UINT,32/unsigned-little-integer).
-define( INT,32/signed-little-integer).
-define( USHORT,16/unsigned-little-integer).
-define( SHORT,16/signed-little-integer).
-define( UBYTE,8/unsigned-little-integer).
-define( BYTE,8/signed-little-integer).
@H4030@-define( PORT,5678).
@H403_0@%% 启动服务并接受客户端的连接
start() ->
{ok,LSock} = gen
tcp:listen(?PORT,[binary,{packet,0},{active,false}]),
io:format("socket listen: ~p on ~p ~n",[LSock,?PORT]),
accept(LSock).
@H403_0@accept(LSock) ->
{ok,ASock} = gen_tcp:accept(LSock),
spawn(fun() -> server
loop(ASock) end),
accept(LSock).
@H403_0@server_loop(ASock) ->
case gen_tcp:recv(ASock,0) of
{ok,<<Len:?USHORT,Cmd:?USHORT,Contain:4/binary-unit:8>> = A} ->
io:format("recv data: ~p ~p ~p~n",[Len,Cmd,Contain]),
%%将接收到数据发送回客户端
gen_tcp:send(ASock,A),
server_loop(ASock);
{ok,Data} ->
io:format("recv unformated data: ~p~n",[Data]),
server
loop(ASock);
{error,} ->
{ok,recv
error}
end.
@H
403_0@
<div class="jb51code">
<pre class="brush:
PHP;">
<?
PHP
$timeout = 3;
//超时时间：3秒
$fp = fsockopen("tcp://127.0.0.1",5678,$errno,$errstr,$timeout/ 连接超时时间 /);
if (!$fp) {
echo "$errstr ($errno)
\n";
} else {
stream_set_timeout($fp,$timeout);
//远程数据接收或发送超时时间
$format = "vva4";
$data = pack($format,4,10001,"abcd");
//$data 按照一定格式被打包成二进制数据
fwrite($fp,$data);
if (!feof($fp)) {
$rs = fread($fp,1024);
//读取远程数据
if ($rs) {
$len = strlen($rs);
//$len 可以获取数据的长度，用以计算content的长度
//在这个例子中，content 的长度为 4
$format = "vlen/vcmd/a4content";
$data = unpack($format,$rs);
print_r($data);
} else {
echo "timeout!";
}
} else {
echo "timeout!";
}
fclose($fp);
}
?>
