脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - Erlang - Erlang实现的一个Web服务器代码实例

Erlang实现的一个Web服务器代码实例

2020-05-29 14:04Erlang教程网 Erlang

这篇文章主要介绍了Erlang实现的一个Web服务器代码实例,本文直接给出实现代码,需要的朋友可以参考下

转贴一个简单的Web服务器:

httpd.erl

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
%% 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()启动服务器,就可以访问http://localhost:8888/index.html了

延伸 · 阅读

精彩推荐
  • ErlangErlang语法学习笔记:变量、原子、元组、列表、字符串

    Erlang语法学习笔记:变量、原子、元组、列表、字符串

    这篇文章主要介绍了Erlang语法学习笔记:变量、原子、元组、列表、字符串,本文简明总结了这5种类型的相关知识,需要的朋友可以参考下 ...

    脚本之家3522020-05-25
  • ErlangErlang中的并发程序简介

    Erlang中的并发程序简介

    这篇文章主要介绍了Erlang中的并发程序简介,本文讲解了Erlang中基本的并发函数、并发程序模板、程序在出错时立即崩溃的优点、为了在互联网上执行并发程...

    脚本之家3022020-05-28
  • ErlangErlang是什么 Golang与erlang的比较

    Erlang是什么 Golang与erlang的比较

    Erlang编程语言最初目的是进行大型电信交换设备的软件开发,是一种适用于大规模并行处理环境的高可靠性编程语言。随着多核处理器技术的日渐普及,以...

    电子发烧友网8982022-07-16
  • ErlangErlang中的函数与流程控制介绍

    Erlang中的函数与流程控制介绍

    这篇文章主要介绍了Erlang中的函数与流程控制介绍,本文先是讲解了函数的一些知识,然后讲解了case语句和if语句及算术表达式等内容,需要的朋友可以参考下...

    脚本之家4022020-05-25
  • ErlangErlang IO编程之文件目录操作常用方法小结

    Erlang IO编程之文件目录操作常用方法小结

    这篇文章主要介绍了Erlang IO编程之文件目录操作常用方法小结,本文讲解了常用的文件操作如打开文件、读取文件、写入文件、删除文件等,需要的朋友可以...

    脚本之家6212020-05-24
  • ErlangErlang中执行linux命令的两种方法

    Erlang中执行linux命令的两种方法

    这篇文章主要介绍了Erlang中执行linux命令的两种方法,本文着重讲解了erlang:open_port的使用,需要的朋友可以参考下 ...

    脚本之家3642020-05-26
  • ErlangErlang中的模块与模式匹配介绍

    Erlang中的模块与模式匹配介绍

    这篇文章主要介绍了Erlang中的模块与模式匹配介绍,本文分别对模块与模式匹配做了讲解,需要的朋友可以参考下 ...

    脚本之家3712020-05-27
  • ErlangErlang实现的一个Web服务器代码实例

    Erlang实现的一个Web服务器代码实例

    这篇文章主要介绍了Erlang实现的一个Web服务器代码实例,本文直接给出实现代码,需要的朋友可以参考下 ...

    Erlang教程网3282020-05-29