php 與 erlang 實現二進位通訊

php 與 erlang 實現二進位通訊

網路通訊常用的有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端代碼：

\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端，直接用位文法來匹配位元據即可

