erlang tracert

shijiang1130

1. -module(tracert).
   
2. -export([run/0]).
   
3. 
   
4. 
   
5. run() ->  
   
6.     P5 = erlang:open_port({spawn, "tracert 8.8.8.8"},
   
7.     [stderr_to_stdout, in, exit_status,stream, {line, 255}]),
   
8.     loop(P5).
   
9. 
   
10. loop(P) ->
    
11.        receive
    
12.                {P,{exit_status,_}} ->
    
13.                        io:format("Pid been killed, try restart ...~n"),
    
14.                        run();
    
15.                {P, Data} ->
    
16.                        {data,{eol,X}} = Data,
    
17.            io:format("~p~n",[X]),
    
18.                        loop(P)
    
19.    end.

复制代码

patagonia2

很好啊，我是初学者
我读得这个，写的很生动啊