使用erlang实现简单的二进制通信协议

转自：http://www.cnblogs.com/bicowang/p/4263227.html

最近实现的一种简单的协议以及工具，主要用于客户端服务端通讯传输二进制数据时，协议的解包与封包，具体如下：
首先定义协议的格式，主要由三部分组成：
数据长度(数据部分长度+协议号长度):4个字节
协议号:2个字节
数据部分:2进制数据
数据部分如果是字符串需要先计算字符串的长度，占2个字节，之后再紧跟字符串内容，
以上三个部分构成一个完整的数据包，每次客户端服务端将数据进行以上格式的封包解包进行通信。
下面是对一个协议号为10000的协议进行封包的例子：
客户端向服务端发送了三个数据：角色rid(4个字节)，服务器srv_id(字符串)，消息msg(字符串)，
根据以上定义的协议的打包方式如下，定义一个erlang函数：
pack(cli, 10000, {Rid, Srv_id, Msg}) ->
Data = <>,
Packet = <<(byte_size(Data) + 2):32, 10000:16, Data/binary>>,
{ok, Packet}.之后客户端可能通过socket的方式将二进制数据包发送给服务端了。

假设服务器收到数据，开始对数据包进行解析,
P0表示一个完整的包的数据部分，且是上面客户端打包的数据，协议号为10000号，接下来就是将P0进行解包，
对此我写了一个模块lib_proto，专门来解析二进制数据包。下面的解析过程就是针对协议号为10000的数据包进行解析：
unpack(srv, 10000, P0) ->
{Rid, P1} = lib_proto:read_uint32(P0),
{Srv_id, P2} = lib_proto:read_string(P1),
{Msg, _P3} = lib_proto:read_string(P2),
{ok, {Rid, Srv_id, Msg}}.通过上面的方式就能将数据包解析出来，得到各个字段的值。
下面是lib_proto的部分实现：
read_uint32(B0) when is_binary(B0)
andalso byte_size(B0) >= 4 ->
<> = B0,
{Int32, B1};
read_uint32(_B0) -> error.

read_string(B0) when is_binary(B0)
andalso byte_size(B0) >= 2 ->
<> = B0,
case byte_size(B1) >= Len of
true ->
<> = B1,
{String, B2};
false ->
error
end;
read_string(_B0) -> error.以上就是使用erlang进行二进制数据包的解包与封包的应用，应该说erlang生来就对处理二进制数据进行了很好的封装，
个人只是在此基础上进行简单应用而已。