Erlang 实现的 Web 服务器代码示例

在当今的互联网时代，Web 服务器是构建网络应用的关键组件之一。Erlang 作为一种强大的函数式编程语言，在构建高并发、可靠的系统方面具有显著优势。下面将为您展示一个简单的 Erlang 实现的 Web 服务器代码示例。

-module(web_server).
-export([start/0]).

start() ->
    {ok, ListenSocket} = gen_tcp:listen(8080, [binary, {active, false}]),
    accept_connections(ListenSocket).

accept_connections(ListenSocket) ->
    {ok, Socket} = gen_tcp:accept(ListenSocket),
    spawn(fun() -> handle_connection(Socket) end),
    accept_connections(ListenSocket).

handle_connection(Socket) ->
    {ok, Req} = gen_tcp:recv(Socket, 0),
    Response = build_response(Req),
    gen_tcp:send(Socket, Response),
    gen_tcp:close(Socket).

build_response(Req) ->
    % 解析请求并构建响应
    % 这里只是一个简单的示例，实际应用中需要更复杂的处理
    "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\n\r\nHello, World!\r\n".

在上述代码中，我们首先使用 gen_tcp:listen 函数在端口 8080 上进行监听。当有新的连接请求到来时，通过 gen_tcp:accept 接受连接，并为每个连接创建一个新的进程来处理。

在 handle_connection 函数中，接收客户端发送的请求，然后构建响应。在这个简单的示例中，我们返回了一个固定的字符串 Hello, World! 作为响应。

需要注意的是，这只是一个非常基础的 Web 服务器实现，实际的 Web 服务器需要处理更多的细节，比如解析不同类型的 HTTP 请求、处理请求头、处理不同的路由、处理静态文件服务等。

使用 Erlang 实现 Web 服务器可以充分利用 Erlang 的并发和容错特性，使得服务器能够高效地处理大量并发请求，并在出现错误时能够快速恢复。通过不断扩展和优化上述代码，您可以构建出功能强大、稳定可靠的 Web 服务器。

希望这个简单的 Erlang Web 服务器代码示例能够为您在探索 Erlang 编程和 Web 开发的道路上提供一些启发和帮助。