php 实现与 erlang 网络通讯

最新推荐文章于 2021-12-07 17:17:49 发布

VIP文章没有开花的树

最新推荐文章于 2021-12-07 17:17:49 发布

阅读量2.8k

点赞数 2

分类专栏： erlang/mnesia apache/php erlang技术与应用

本文链接：https://blog.csdn.net/mycwq/article/details/12951375

版权

网络通讯常用的有2种：文本通讯和二进制通讯。php与erlang之间文本通讯比较简单，这里不做讨论，主要讨论php与erlang实现二进制通讯。

通讯示例

erlang端代码：

-module(server).
-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} ->