erlang 之 echo 服务器

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 是主进程的返回值

          这是一个简单用于等待外部信息的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 .