终于明白所说的gen_fsm可以用来解析文件了。

shijiang1130

1. -module(csv).
   
2. -behaviour(gen_fsm).
   
3. -define(SERVER, ?MODULE).
   
4. 
   
5. %% ------------------------------------------------------------------
   
6. %% API Function Exports
   
7. %% ------------------------------------------------------------------
   
8. 
   
9. -export([start_link/0]).
   
10. 
    
11. %% ------------------------------------------------------------------
    
12. %% gen_fsm Function Exports
    
13. %% ------------------------------------------------------------------
    
14. 
    
15. -export([init/1, state_name/2, state_name/3, handle_event/3,
    
16.          handle_sync_event/4, handle_info/3, terminate/3,
    
17.          code_change/4]).
    
18. -compile(export_all).
    
19. 
    
20. %% ------------------------------------------------------------------
    
21. %% API Function Definitions
    
22. %% ------------------------------------------------------------------
    
23. 
    
24. start_link() ->
    
25.     gen_fsm:start_link({local, ?SERVER}, ?MODULE, [], []).
    
26. 
    
27. %% ------------------------------------------------------------------
    
28. %% gen_fsm Function Definitions
    
29. %% ------------------------------------------------------------------
    
30. 
    
31. init(_Args) ->
    
32.     {ok,C}=file:read_file("hosts.csv"),
    
33.     {ok, state_name, C}.
    
34. 
    
35. state_name(l, State) ->
    
36.     <<A:16/binary,R/binary>>   = State,
    
37.     io:format(A),
    
38.     {next_state, state_name, R};
    
39. state_name(_Event, State) ->
    
40.     io:format(State),
    
41.     {next_state, state_name, State}.
    
42. 
    
43. 
    
44. 
    
45. state_name(_Event, _From, State) ->
    
46.     {reply, ok, state_name, State}.
    
47. 
    
48. handle_event(_Event, StateName, State) ->
    
49.     {next_state, StateName, State}.
    
50. 
    
51. handle_sync_event(_Event, _From, StateName, State) ->
    
52.     {reply, ok, StateName, State}.
    
53. 
    
54. handle_info(_Info, StateName, State) ->
    
55.     {next_state, StateName, State}.
    
56. 
    
57. terminate(_Reason, _StateName, _State) ->
    
58.     ok.
    
59. 
    
60. code_change(_OldVsn, StateName, State, _Extra) ->
    
61.     {ok, StateName, State}.
    
62. 
    
63. %% ------------------------------------------------------------------
    
64. %% Internal Function Definitions
    
65. %% ------------------------------------------------------------------
    

复制代码

shijiang1130

1. 11> gen_fsm:send_event(csv,l).
   
2. 11111111111ok
   
3. 12> gen_fsm:send_event(csv,l).
   
4. 22222222222ok
   
5. 13> gen_fsm:send_event(csv,l).
   
6. 33333333333ok
   
7. 14>

复制代码