Как написать простой веб-сервер в Erlang?

Question

Используя установку по умолчанию Erlang, каков минимальный код, необходимый для создания веб-сервера «Hello world»?

Answer 1

Принимая «производить» буквально, здесь довольно маленький. Он даже не читает запрос (но делает вилку по каждому запросу, поэтому это не так минимально возможно).

-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

Вы действительно хотите написать веб-сервер в Erlang или хотите веб-сервер Erlang, чтобы вы могли создавать динамический веб-контент с помощью Erlang?

Если последний, попробуйте YAWS. Если первый, посмотрите на YAWS source code для вдохновения

Answer 3

Для веб-сервера, использующего только встроенные библиотеки, обращайтесь к inets http_server. Если вам нужна дополнительная мощность, но с простотой, вы должны проверить библиотеку mochiweb. Вы можете использовать Google для загрузки кода примера.

Answer 4

Для очень простой в использовании веб-сервера для создания успокоительные приложений или такой проверить поведение gen_webserver: http://github.com/martinjlogan/gen_web_server.

Answer 5

Только одно исправление для ответа Феликса, и оно рассматривает проблемы, которые видит Мартин. Перед закрытием сокета должны быть получены все данные, отправляемые от клиента (с использованием, например, do_recv от gen_tcp description).

В противном случае существует условие гонки для браузера/прокси, отправляющего HTTP-запрос достаточно быстро, чтобы отправить HTTP-запрос до закрытия сокета.

Answer 6

Другой способ, аналогичный приведенному выше примеру gen_tcp, но с меньшим количеством кода и уже предлагаемый в качестве предложения, использует 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().              

Имейте в виду, это подвергает свой /tmp каталог.

Для запуска, просто:

$ escript ./hello_erlang.erl