以为put/get是万应良药，原来不是

shijiang1130

1. -module(get_put).
   
2. -compile(export_all).
   
3. 
   
4. a()->
   
5.         put(test,1),
   
6.         z().
   
7. 
   
8. b()->
   
9.         put(test,1),
   
10.         spawn(fun()->z() end).
    
11.        
    
12. z()->
    
13.         Result=get(test),
    
14.         io:format("Result is: ~p~n",[Result]),
    
15.         timer:sleep(100),
    
16.         put(test,Result + 1),
    
17.         z().

复制代码

1. C:\Users\Administrator\Desktop>erl -noshell -s get_put a
   
2. Result is: 1
   
3. Result is: 2
   
4. Result is: 3
   
5. Result is: 4
   
6. Result is: 5
   
7. Result is: 6
   
8. Result is: 7
   
9. Result is: 8
   
10. Result is: 9
    
11. Result is: 10
    
12. Result is: 11
    
13. Result is: 12
    
14. 
    
15. C:\Users\Administrator\Desktop>erl -noshell -s get_put b
    
16. Result is: undefined
    
17. 
    
18. =ERROR REPORT==== 7-Jul-2014::23:06:16 ===
    
19. Error in process <0.29.0> with exit value: {badarith,[{get_put,z,0,[{file,"c:/Us
    
20. ers/Administrator/Desktop/get_put.erl"},{line,16}]}]}
    

复制代码

q1208c

spawn之后, 进程字典 是不是也成了新的了?

crazyhadoop

回复 2# q1208c


    这个put和get只能进程内使用，这是进程内字典。

shijiang1130

crazyhadoop 发表于 2014-07-08 14:40
回复 2# q1208c

分享下经验啊 不光是这个。

shijiang1130

1. 只好改一版了
   
2. -module(get_put).
   
3. -compile(export_all).
   
4. 
   
5. a()->
   
6.         put(test,1),
   
7.         z().
   
8. 
   
9. b()->
   
10.         put(test,1),
    
11.         spawn(fun()->z() end).
    
12.         
    
13. z()->
    
14.         Result=get(test),
    
15.         io:format("Result is: ~p~n",[Result]),
    
16.         timer:sleep(100),
    
17.         put(test,Result + 1),
    
18.         z().
    
19.                
    
20. c()->
    
21.         ets:new(test,[named_table,public]),
    
22.         ets:insert(test,{a,1}),
    
23.         spawn(fun()->y() end).
    
24.        
    
25. y()->
    
26.         [{a,Result}]=ets:lookup(test,a),
    
27.         io:format("Result is: ~p~n",[Result]),
    
28.         timer:sleep(100),
    
29.         N = Result + 1,
    
30.         ets:insert(test,{a,N}),
    
31.         y().
    
32.        
    
33.        
    
34.         Eshell V6.0  (abort with ^G)
    
35. 1> c(get_put).
    
36. {ok,get_put}
    
37. 2> get_put:c().
    
38. Result is: 1
    
39. <0.39.0>
    
40. Result is: 2
    
41. Result is: 3
    
42. Result is: 4
    
43. Result is: 5
    
44. Result is: 6
    
45. Result is: 7
    
46. Result is: 8
    
47. Result is: 9

复制代码