hideto 发表于 2013-1-27 05:08:53

gen_server Hello World

简单的gen_server Hello World程序

代码:
-module(genserver).-behaviour(gen_server).-export().-export().start() ->   gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).hello(Name) ->Reply = gen_server:call(?MODULE, {hello, Name}),io:format("~s~n", ).handle_call({hello, Name}, _From, State) ->Reply = lists:append(["Hello, ", Name, "!"]),{reply, Reply, State}.init(_Args) ->{ok, init}.handle_cast(_Request, State) ->{noreply, State}.handle_info(_Info, State) ->{noreplay, State}. terminate(_Reason, _State) ->ok.code_change(_OldVsn, State, _Extra) ->{ok, State}.

编译:
Eshell> c(genserver).

运行:
Eshell> genserver:start().Eshell> genserver:hello("Hideto").

输出结果:
Hello, Hideto!
页: [1]
查看完整版本: gen_server Hello World