一般来说网络通讯常用的方式有2种：文本通讯和二进制通讯。php与erlang之间实现文本通讯比较简单，这里就不做讨论，本文主要讨论的是php与erlang实现二进制通讯的实现方法。实现步骤如下：
erlang端代码：
-export([start/0]).
-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).
-define( port, 5678).
%% 启动服务并接受客户端的连接
start() ->
{ok, lsock} = gen_tcp:listen(?port, [binary, {packet, 0},{active, false}]),
io:format("socket listen: ~p on ~p ~n",[lsock, ?port]),
accept(lsock).
accept(lsock) ->
{ok, asock} = gen_tcp:accept(lsock),
spawn(fun() -> server_loop(asock) end),
accept(lsock).
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.
php端代码：
<?php
$timeout = 3;
//超时时间：3秒
$fp = fsockopen("tcp://127.0.0.1", 5678, $errno, $errstr, $timeout/* 连接超时时间 */);
if (!$fp) {
echo "$errstr ($errno)<br />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);
}
?>
运行正常的情况下，php端会显示以下内容：
array ( [len] => 4 [cmd] => 10001 [content] => abcd )
针对通讯的一些说明：
这里用到的是php的pack函数和unpack函数：
pack函数：将数据按照一定格式打包成二进制数据，生成的数据接近c/c++的结构体数据（c/c++字符串带结束符）。
unpack函数：与pack相反，对二进制数据进行解包。
对应的erlang端，则直接用位语法来匹配二进制数据即可。
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！