erlang与PHP,php 实现与 erlang 网络通讯

网络通讯常用的有2种：文本通讯和二进制通讯。php与erlang之间文本通讯比较简单，这里不做讨论，主要讨论php与erlang实现二进制通讯。 通讯示例 erlang端代码： -module(server).-export([start/0]).-define( UINT, 32/unsigned-little-integer).-define( IN

网络通讯常用的有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, <> = 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端会显示以下内容：

Array ( [len] => 4 [cmd] => 10001 [content] => abcd )

通讯说明

这里用到的是php的pack函数和unpack函数

pack函数：将数据按照一定格式打包成二进制数据，生成的数据接近C/C++的结构体数据(C/C++字符串带结束符)。

unpack函数：与pack相反，对二进制数据进行解包。

而erlang端，直接用位语法来匹配二进制数据即可

本文原创发布php中文网，转载请注明出处，感谢您的尊重！