简易web server

shijiang1130

1. -module(my_web_server).
   
2. -export([start/0]).
   
3. 
   
4. start() ->
   
5.     spawn(fun () -> {ok, Sock} = gen_tcp:listen(80, [{active, true}]),
   
6.                     loop(Sock) end).
   
7. 
   
8. loop(Sock) ->
   
9.     {ok, Conn} = gen_tcp:accept(Sock),
   
10.     Handler = spawn(fun () -> handle(Conn) end),
    
11.     gen_tcp:controlling_process(Conn, Handler),
    
12.     loop(Sock).
    
13. 
    
14. handle(Conn) ->
    
15.     gen_tcp:send(Conn, response(os:cmd("dir"))).
    
16. 
    
17. response(Str) ->
    
18.     B = iolist_to_binary(Str),
    
19.     iolist_to_binary(
    
20.       io_lib:fwrite(
    
21.          "HTTP/1.0 200 OK
    
22. Content-Type: text/html
    
23. Content-Length: ~p\n\n~s",
    
24.          [size(B), B])).

复制代码

arserangel

不错，这个好像是 erlang程序设计上面的例子吧？