简易 web client

shijiang1130

5> count:init().
<0.62.0>
(4)(0)(1)(3)(0)(0)(0)(1)(1)(0)(1)(0)(0)(0)(0)(0)(0)   
(C)......................... (Erlang)
(4)(0)(1)(3)(0)(0)(0)(1)(1)(0)(1)(0)(0)(0)(0)(0)(0)   
(C)......................... (Erlang)
(4)(0)(1)(3)(0)(0)(0)(1)(1)(0)(1)(0)(0)(0)(0)(0)(0)

1. -module(count).
   
2. -compile(export_all).
   
3. 
   
4. init()->
   
5.         spawn(count,delay,[]).
   
6. 
   
7. delay()->
   
8.         receive
   
9.                 _ ->
   
10.                 void
    
11.                 after 3000 ->
    
12.                 try s()
    
13.                 catch
    
14.                         _:_ -> io:format("detected error, reboot process~n"),
    
15.                                    s()
    
16.                 end
    
17.                
    
18.         end,
    
19.         delay().
    
20. s()->
    
21.     inets:start(),
    
22.         {ok,{{_,200,_},_,Body}}=httpc:request(get,{"http://bbs.chinaunix.net/forum.php?gid=60",[]},[],[]),
    
23.         %io:format([Body]).
    
24.         {match,A}=re:run(Body,"<td class=\"bold subject\" align=\"left\" colspan=3>\r\n\.*\r\n\t\r\n(.*)\r",[global,{capture,all_but_first,list}]),
    
25.         io:format([A]),
    
26.         io:format("~n(C)......................... (Erlang) ~n").
    
27.        

复制代码

shijiang1130

去掉第15行