一般来说网络通讯常用的方式有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} ->
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端代码:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
<?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端会显示以下内容:
1
|
Array ( [len] => 4 [cmd] => 10001 [content] => abcd ) |
针对通讯的一些说明:
这里用到的是php的pack函数和unpack函数:
pack函数:将数据按照一定格式打包成二进制数据,生成的数据接近C/C++的结构体数据(C/C++字符串带结束符)。
unpack函数:与pack相反,对二进制数据进行解包。
对应的erlang端,则直接用位语法来匹配二进制数据即可。