以下是一個小小的服務器，可以用回調模塊作為它的參數。
-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.
編寫server1的一個回調模塊，它是一個名稱服務器回調模塊，這段代碼實際上執行兩個任務，它首先充當被服務器框架代碼調用的回調模塊，與此同時，它還包含了將被客戶端調用的接口方法，OTP的慣例是把這兩類函數放在同一個模塊中。
-module(name_server).
-export([init/0,add/2,find/1,handle/2]).
-import(server1,[rpc/2]).
add(Name,Place)->rpc(name_server,{add,Name,Place}).
find(Name)->rpc(name_server,{find,Name}).
init()->dict:new().
handle({add,Name,Place},Dict)->{ok,dict:store(Name,Place,Dict)};
handle({find,Name},Dict)->{dict:find(Name,Dict),Dict}.

Erlang程序設計（第2版）【瑞典】Joe Armstrong著，牛化成譯。【M】北京：中國工信出版社與人民郵電出版社。

總結

以上是生活随笔為你收集整理的Server：基本的服务器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。