Erlang實現(xiàn)的一個Web服務(wù)器代碼實例
更新時間：2015年04月29日 10:27:42 投稿：junjie
這篇文章主要介紹了Erlang實現(xiàn)的一個Web服務(wù)器代碼實例,本文直接給出實現(xiàn)代碼,需要的朋友可以參考下
轉(zhuǎn)貼一個簡單的Web服務(wù)器：
httpd.erl
%% httpd.erl - MicroHttpd
-module(httpd).
-author("ninhenry@gmail.com").
-export([start/0,start/1,start/2,process/2]).
-import(regexp,[split/2]).
-define(defPort,8888).
-define(docRoot,"public").
start() -> start(?defPort,?docRoot).
start(Port) -> start(Port,?docRoot).
start(Port,DocRoot) ->
case gen_tcp:listen(Port, [binary,{packet, 0},{active, false}]) of
{ok, LSock} -> server_loop(LSock,DocRoot);
{error, Reason} -> exit({Port,Reason})
end.
%% main server loop - wait for next connection, spawn child to process it
server_loop(LSock,DocRoot) ->
case gen_tcp:accept(LSock) of
{ok, Sock} ->
spawn(?MODULE,process,[Sock,DocRoot]),
server_loop(LSock,DocRoot);
{error, Reason} ->
exit({accept,Reason})
end.
%% process current connection
process(Sock,DocRoot) ->
Req = do_recv(Sock),
{ok,[Cmd|[Name|[Vers|_]]]} = 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",[LogReq,FileName]),
Data;
{error, Reason} ->
io:format("~p ~p failed ~p~n",[LogReq,FileName,Reason]),
error_response(LogReq,file:format_error(Reason))
end,
do_send(Sock,Resp),
gen_tcp:close(Sock).
%% construct HTML for failure message
error_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 socket
do_send(Sock,Msg) ->
case gen_tcp:send(Sock, Msg) of
ok -> ok;
{error, Reason} -> exit(Reason)
end.
%% receive data from the socket
do_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()啟動服務(wù)器，就可以訪問http://localhost:8888/index.html了
相關(guān)文章
這篇文章主要介紹了Erlang中3種生成隨機數(shù)的方法,它們分別是random:uniform()、erlang:now()、crypto:strong_rand_bytes(N),需要的朋友可以參考下2015-01-01
這篇文章主要介紹了CentOS 6.5源碼安裝Erlang教程,本文講解了源碼編譯安裝的過程和遇到的一些錯誤處理方法,需要的朋友可以參考下2015-01-01
這篇文章主要介紹了Erlang中的socket編程簡單例子,本文給出了TCP服務(wù)器echo示例、Tcp 的echo客戶端示例、UDP server示例、UDP client 示例,需要的朋友可以參考下2015-03-03
這篇文章主要介紹了Erlang項目內(nèi)存泄漏分析方法,本文講解了分析方法、分析流程并找到問題原因和解決方法,需要的朋友可以參考下2015-02-02
這篇文章主要介紹了Erlang的一些編程技巧分享,本文是是實際編程中的個人總結(jié),需要的朋友可以參考下2015-01-01
這篇文章主要介紹了Erlang編程語言的第一印象,本文對Erlang做了一個簡單總結(jié),需要的朋友可以參考下2015-03-03
當單臺 RabbitMQ 服務(wù)器的處理消息的能力達到瓶頸時，此時可以通過 RabbitMQ 集群來進行擴展，從而達到提升吞吐量的目的2021-08-08
這篇文章主要介紹了Erlang分布式節(jié)點中的注冊進程使用實例,本文直接給出實例代碼,需要的朋友可以參考下2015-02-02
這篇文章主要介紹了Erlang中的基本元素操作小結(jié),本文講解了元組(tuple)、記錄(record)、列表(list)、映射組(map)等內(nèi)容,需要的朋友可以參考下2015-03-03
RabbitMQ是實現(xiàn)了高級消息隊列協(xié)議（AMQP）的開源消息代理軟件（亦稱面向消息的中間件）。RabbitMQ服務(wù)器是用Erlang語言編寫的，所有主要的編程語言均有與代理接口通訊的客戶端庫2021-06-06