Làm thế nào để viết một máy chủ web đơn giản trong Erlang?

Question

Sử dụng cài đặt Erlang mặc định, mã tối thiểu cần thiết để tạo ra một máy chủ web "Hello world" là gì?

Answer 1

Lấy "sản xuất" theo nghĩa đen, đây là một sản phẩm khá nhỏ. Nó thậm chí không đọc các yêu cầu (nhưng không ngã ba trên mọi yêu cầu, do đó, nó không phải là tối thiểu có thể).

-module(hello). 
-export([start/1]). 

start(Port) -> 
    spawn(fun() -> {ok, Sock} = gen_tcp:listen(Port, [{active, false}]), 
        loop(Sock) end). 

loop(Sock) -> 
    {ok, Conn} = gen_tcp:accept(Sock), 
    Handler = spawn(fun() -> handle(Conn) end), 
    gen_tcp:controlling_process(Conn, Handler), 
    loop(Sock). 

handle(Conn) -> 
    gen_tcp:send(Conn, response("Hello World")), 
    gen_tcp:close(Conn). 

response(Str) -> 
    B = iolist_to_binary(Str), 
    iolist_to_binary(
     io_lib:fwrite(
     "HTTP/1.0 200 OK\nContent-Type: text/html\nContent-Length: ~p\n\n~s", 
     [size(B), B])). 

Answer 2

Bạn có thực sự muốn viết một máy chủ web trong Erlang hay bạn muốn một máy chủ web Erlang để bạn có thể tạo nội dung web động bằng Erlang?

Nếu sau, hãy thử YAWS. Nếu trước đây, hãy xem YAWS source code để biết cảm hứng

Answer 3

Đối với máy chủ web chỉ sử dụng thư viện được tích hợp, hãy kiểm tra inets http_server. Khi cần thêm chút sức mạnh nhưng vẫn đơn giản, bạn nên kiểm tra thư viện mochiweb. Bạn có thể google cho tải mã ví dụ.

Answer 4

Đối với một rất dễ dàng để sử dụng máy chủ web để xây dựng các ứng dụng yên tĩnh hoặc như kiểm tra các hành vi gen_webserver: http://github.com/martinjlogan/gen_web_server.

Answer 5

Chỉ cần một sửa chữa cho câu trả lời của Felix và nó giải quyết các vấn đề mà Martin đang thấy. Trước khi đóng ổ cắm, tất cả dữ liệu được gửi từ máy khách phải được nhận (sử dụng ví dụ do_recv từ gen_tcp description).

Nếu không có điều kiện chủng tộc cho trình duyệt/proxy gửi yêu cầu HTTP đủ nhanh để gửi yêu cầu http trước khi đóng socket.

Answer 6

Một cách khác, tương tự như ví dụ gen_tcp ở trên nhưng có ít mã hơn và đã được cung cấp dưới dạng đề xuất, đang sử dụng inets library.

%%% 
%%% A simple "Hello, world" server in the Erlang. 
%%% 

-module(hello_erlang). 
-export([ 
    main/1, 
    run_server/0, 
    start/0 
]). 

main(_) -> 
    start(), 
    receive 
    stop -> ok 
    end. 

run_server() -> 
    ok = inets:start(), 
    {ok, _} = inets:start(httpd, [ 
    {port, 0}, 
    {server_name, "hello_erlang"}, 
    {server_root, "/tmp"}, 
    {document_root, "/tmp"}, 
    {bind_address, "localhost"} 
    ]). 

start() -> run_server().              

Lưu ý, điều này sẽ hiển thị thư mục /tmp của bạn.

Để chạy, chỉ cần:

$ escript ./hello_erlang.erl