Erlang实现简单Web服务器
转贴一个简单的Web服务器：httpd.erl
%% httpd.erl - MicroHttpd-module(httpd).-author("ninhenry@gmail.com").-export().-import(regexp,).-define(defPort,8888).-define(docRoot,"public").start() -> start(?defPort,?docRoot).start(Port) -> start(Port,?docRoot).start(Port,DocRoot) ->case gen_tcp:listen(Port, ) of {ok, LSock} -> server_loop(LSock,DocRoot);{error, Reason}-> exit({Port,Reason})end.%% main server loop - wait for next connection, spawn child to process itserver_loop(LSock,DocRoot) ->case gen_tcp:accept(LSock) of {ok, Sock} -> spawn(?MODULE,process,), server_loop(LSock,DocRoot); {error, Reason} -> exit({accept,Reason})end.%% process current connectionprocess(Sock,DocRoot) ->Req = do_recv(Sock),{ok,]]} = split(Req,"[ \r\n]"),FileName = DocRoot ++ Name,LogReq = Cmd ++ " " ++ Name ++ " " ++ Vers,Resp = case file:read_file(FileName) of {ok, Data} -> io:format("~p ~p ok~n",), Data; {error, Reason}-> io:format("~p ~p failed ~p~n",), error_response(LogReq,file:format_error(Reason)) end, do_send(Sock,Resp),gen_tcp:close(Sock).%% construct HTML for failure messageerror_response(LogReq,Reason) ->"<html><head><title>Request Failed</title></head><body>\n" ++"<h1>Request Failed</h1>\n" ++ "Your request to " ++ LogReq ++" failed due to: " ++ Reason ++ "\n</body></html>\n".%% send a line of text to the socketdo_send(Sock,Msg) ->case gen_tcp:send(Sock, Msg) of ok -> ok; {error, Reason} -> exit(Reason)end.%% receive data from the socketdo_recv(Sock) ->case gen_tcp:recv(Sock, 0) of {ok, Bin} -> binary_to_list(Bin); {error, closed} -> exit(closed); {error, Reason} -> exit(Reason)end.
运行时在httpd.erl本地建一个public目录，public目录里放一个index.html文件
然后httpd:start()启动服务器，就可以访问http://localhost:8888/index.html了
页:
[1]