erlang(1)

%%server1.erl:

-module(server1)
-export([start/2,rpc/2])

start(Name,Mod)->
    register(Name,spawn(fun()->loop(Name,Mod,Mod:init())end)).
rpc(Name,Request)->
    Name!{self(),Request},
    receive
       {Name,Response}->Response
    end.

loop(Name,Mod,State)->
    receive
	{From,Request}->
		{Response,State1}=Mod:handle(Request,State),
		From!{Name,Response},
		loop(Name,Mod,State1)
    end.

这段代码实现了一个基本的服务器功能。

与常见的服务器不同，这个服务器不处理具体的业务，而是在接收到请求后调用传进来模块的相应方法(handle)去处理。

第二，这个服务器提供了向指定的进程发送指定消息的功能，个人觉得把这个rpc放到回调模块中可能更容易理解。

%%name_server:

-module(name_server).
-export([init/0,add/2,whereis/1,handle/2]).
-import(server1,[rpc/2]).

add(Name,Place)->rpc(name_server,{add,Name,Place}).
whereis(Name)->rpc(name_server,{whereis,Name}).
init()->dict:new().

handle({add,Name,Place},Dict)->{ok,dict:store(Name,Place,Dict)};
handle({whereis,Name},Dict)->{dict:find(Name,Dict),Dict}.

这是一个回调模块，可用于初始化服务器，提供服务器调用的接口，并进行具体的业务实现。在JAVA,C# 等编程语言中，一般都是接口和具体的实现分开的，所以这是erlang与他们不同的地方之一。

下面是具体的运行：

1>server1:start(name_server,name_server).
true
2>name_server:add(joe,"at home").
ok
3>name_server:whereis(joe).
{ok,"at home"}

第一句代码运行后我们启动了一个进程，这个进程先调用了name_server:init，然后等待处理客户端进程发送过来的请求。一但接收到请求，就调用初始化模块name_server:handle/2 去处理，并将结果发送回客户端进程。

第二句代码，我们使用了服务器提供的发送请求的功能，向name_server进程发送了{add,joe,"at home"} 这样的消息。服务器接收到后就调用name_server回调模块中的handle方法去处理。

第三句代码又向name_server进程发送了{whereis,joe} 这样的消息，服务器进程接收到后同样调用name_server回调模块中的handle方法去处理。

在这里其实是涉及到三个东西的：被注册为name_server的服务器进程；shell所在的客户端进程；可以用来初始化服务器进程，并做具体业务实现的回调模块name_server。