Erlang 入门——从普通tcp到OTP框架通信

根据Erlang的语言特点，Erlang创建进程就如同Java创建对象那样简单。而Erlang的OTP框架，可以理解为是Java的Spring框架。

刚入门Erlang的tcp通信，书上的写法是根据socket用gen_tcp:send和receive通信，到了OTP里用gen_server也是一样的原理，只不过在OTP框架下gen_server行为模式封装了一些方法使得写法更方便。

首先是一般的写法。server端监听来自client的tcp连接。

%% server.erl
start(Port) ->
	{
   ok, LSocket} = gen_tcp:listen(Port, [binary, {
   packet, 4}, {
   active, true}, {
   reuseaddr, true}]),
	do_accept(LSocket).
	
do_accept(LSocket) ->
	{
   ok, Socket} = gen_tcp:accept(LSocket),
	io:format("Socket ~p connnected. ~n", [Socket]).

%% client.erl
start(Port) ->
	{
   ok, Socket} = gen_tcp:connect("localhost", Port, [binary, {
   packet, 4}]).

连接后生成的socket用于后续的交互通信，服务端端通常写个loop函数，监听来自客户端请求。而这个loop函数应该给它新建一进程，使其不影响服务端的tcp监听，通常这么写。

%% server.erl
	Pid = spawn(fun() -> loop(Socket) end),
	gen_tcp:controlling_process(Socket, Pid).

gen_tcp:controlling_process的作用，我的理解是给loop函数创建一进程后，将这个进程号和Socket绑定，作用就是将tcp消息转换成进程消息，使其能通过{tcp, Socket, Bin}自动匹配接收。

整个demo如下：

-module(server).

-export([start/1]).

start(Port) ->
	{
   ok, LSocket} = gen_tcp:listen(Port, [binary, {
   packet, 4}, {
   active, true}, {
   reuseaddr, true}]),
	do_accept(LSocket).
	
do_accept(LSocket) ->
	{
   ok, Socket} = gen_tcp:accept(LSocket),
	io:format("Socket ~p connnected. ~n", [Socket]),
	Pid = spawn(fun() -> loop(Socket) end),
	gen_tcp:controlling_process(Socket, Pid),
	loop(Socket).
	
loop(Socket) ->
	receive
		{
   tcp, Socket, Bin} ->
			Str = binary_to_term(Bin),
			io:format("Server get the msg : ~p ~n", [Str]),
			gen_tcp:send(Socket, term_to_binary(hi)),
			loop