-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

$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);
}
?>

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