erlang学习一
经过一个下午的努力，终于把问题解决了。跟一个在网上认识的Erlang也是初学者，但是在java,vc是高手的前辈讨论了一下。像Erlang这种东西真的要多多动手，光看书真的很不够，尤其看erlang程序设计这本书，我个人觉的字字是宝，但是里面很多文字，经常性看了而不能把关键性的地方给记住，就像今天，就是没注意书中的话，导致各种调试都发现不知为什么。
-module(process_test).
-export([start_a/0,start_b/1,af1/1]).
start_a()->
spawn(fun af/0).
af()->
io:format("process a created."),
receive
{hello,X,Y} ->
io:format("Receive hello.~p~n",[X*Y]),
af();
stop ->
io:format("Receive abc. ~p~n",[abc]),
af();
abcd ->
io:format("Receive abcd. ~p~n",[abcd]),
af()
end.
start_b(Pid)->
spawn(process_test,af1,[Pid]).
af1(Pid)->
link(Pid),
exit(Pid,stop),
receive
Y->Y
end.命令行下调用：
c(process_test).
Pid=process_test:start_a().
Pid1=process_test:start_b(Pid).
坑爹，发现Pid进程没有收到exit(Pid,stop)发出退出的信息。而且调用
erlang:is_process_alive(Pid)
erlang:is_process_alive(Pid1)
都返回了false..说明Pid进程没有收到exit(Pid,stop)发出的信息。。。。为什么会这样呢？于是重新在erlang程序实际一书寻找打算。结果发现这样一段话：
"你在进程Pid1中调用exit(Pid2,X),就可以让Pid1显式地向一个进程Pid2发送一个退出信号X。发送退出信号的进程没有死亡，发送信号后它会继续执行。但是Pid2仍然会收到一个{'EXIT',Pid1,X}消息(前提是它正处于退出信号捕获状态),这与同源进程已经消亡时发生的情况完全相同。使用这个方法，Pid1可以装死(这通常是故意的)."于是我把代码修改成：
-module(process_test).
-export([start_a/0,start_b/1,af1/1]).
start_a()->
spawn(fun af/0).
af()->
io:format("process a created."),
receive
{'EXIT',Pid,Why} ->
io:format("Receive hello.~p~n",[Why]);
{hello,X,Y} ->
io:format("Receive hello.~p~n",[X*Y]),
af();
abc ->
io:format("Receive abc. ~p~n",[abc]),
af();
abcd ->
io:format("Receive abcd. ~p~n",[abcd]),
af()
end.
start_b(Pid)->
spawn(process_test,af1,[Pid]).
af1(Pid)->
link(Pid),
exit(Pid,stop),
receive
Y->Y
end.同样的调用还是不行。。这到底是为什么啊，难道是书上出现了。于是就一个下午的找资料。到最后还是重新看看Erlang程序设计，结果又发现新收获：
"系统进程：当进程接收到一个非正常的退出信号时它自己也会消亡，除非它是那种特殊类型的进程即系统进程。当Pid进程向一个系统进程发送一个内容为Why的退出信号时，系统会把退出信号转换为消息{'EXIT',Pid,Why}然后送入系统进程的邮箱".
看来接收exit(Pid,stop)发出的信息必须要是系统进程啊。。。于是重新修改代码
-module(process_test).
-export([start_a/0,start_b/1,af1/1]).
start_a()->
spawn(fun af/0).
af()->
io:format("process a created."),
process_flag(trap_exit,true),
receive
{'EXIT',Pid,Why} ->
io:format("Receive hello.~p~n",[Why]);
{hello,X,Y} ->
io:format("Receive hello.~p~n",[X*Y]),
af();
abc ->
io:format("Receive abc. ~p~n",[abc]),
af();
abcd ->
io:format("Receive abcd. ~p~n",[abcd]),
af()
end.
start_b(Pid)->
spawn(process_test,af1,[Pid]).
af1(Pid)->
link(Pid),
exit(Pid,stop),
receive
Y->Y
end.重新调用，OK了，一切都正常，可以接收exit发送的信号。。。
看来只有系统进程才能接收exit()发出的信号。。。
另外从这个例子重新发现了一点，见代码
-module(process_test).
-export([start_a/0,start_b/1,af1/1]).
start_a()->
spawn(fun af/0).
af()->
io:format("process a created."),
process_flag(trap_exit,true),
receive
{hello,X,Y} ->
io:format("Receive hello.~p~n",[X*Y]),
af();
abc ->
io:format("Receive abc. ~p~n",[abc]),
af();
abcd ->
io:format("Receive abcd. ~p~n",[abcd]),
af()
end.
start_b(Pid)->
spawn(process_test,af1,[Pid]).
af1(Pid)->
link(Pid),
exit(Pid,stop),
receive
Y->Y
end.就是把{'EXIT',Pid,Why}->
io:format("Receivehello.~p~n",[Why]);注释掉。。
那么就是exit()发出的信号系统进程没有接收处理，如果一般进程不管有没有这段代码这个进程都会退出，除非是exit(normal)才不会退出，但是对于系统进程来说是不会的退出，系统进程退出只要在接收Kill才会退出。