PHP と erlang はバイナリ通信を実装します
ネットワーク通信には、テキスト通信とバイナリ通信の 2 つのタイプがよく使用されます。 PHP と Erlang 間のテキスト通信は比較的単純なので、ここでは説明しません。主に PHP と 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 コード:
<?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 関数: パックとは逆に、バイナリ データをアンパックします。
アーラン側では、ビット構文を直接使用してバイナリ データと一致させることができます