erlang之echo服务器

简单实现了一个echo 服务器

-module(echo).
-export([start/0,loop/0]).
start() ->
Pid = spawn(echo,loop,[]),
Pid ! {self(),‘Hello Word‘},
receive
{Pid,Msg} ->
io:format(‘~w~n‘,[Msg])
end,
Pid ! stop.
loop() ->
receive
{FromOther,Msg} ->
io:format("~w~n",[Msg]),
FromOther!{self(),‘Loop Proccess Send to You !‘},
loop();
{stop} ->
%%io:format(‘~w~n‘,[loop_stop]),
true
end.

输出：

29> echo:start().
‘Hello Word‘
‘Loop Proccess Send to You !‘
stop
30>

其中 stop 是主进程的返回&＃20540;

echo_server2 :

          这是一个简单用于等待外部信息的echo server

-module(echo_server).
-export([start/0,print/1,stop/0,loop/0]).
start() ->
Pid = spawn(echo_server , loop , []),
register(sub1,Pid),
{ok,Pid}.
loop() ->
receive
{print,A} ->
io:format("~p.~n",[A]),
loop();
stop ->
true;
Other ->
io:format("~p~n",[Other]),
loop()
end.
print(A) ->
sub1 ! {print,A},
true .
stop() ->
sub1 ! stop ,
%%
true .