¿Cómo escribir un servidor web simple en Erlang?

Question

Utilizando la instalación predeterminada de Erlang, ¿cuál es el código mínimo necesario para producir un servidor web productor de "Hello World"?

Answer 1

Tomando "producir" literalmente, aquí hay uno bastante pequeño. Ni siquiera lee la solicitud (pero sirve para cada solicitud, por lo que no es lo mínimo posible).

-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

¿De verdad quieres escribir un servidor web en Erlang, o quieres un servidor web Erlang para poder crear contenido web dinámico usando Erlang?

Si es el último, intente YAWS. Si es el primero, eche un vistazo al YAWS source code para obtener inspiración

Answer 3

Para un servidor web que utiliza únicamente las bibliotecas integradas, echa un vistazo a inets http_server. Cuando necesite un poco más de potencia pero aún con simplicidad, debe consultar la biblioteca mochiweb. Puedes google para un montón de código de ejemplo.

Answer 4

Para un muy fácil de usar servidor web para la creación de aplicaciones de descanso o como revisar el comportamiento gen_webserver: http://github.com/martinjlogan/gen_web_server.

Answer 5

Solo una solución para la respuesta de Felix y aborda los problemas que está viendo Martin. Antes de cerrar un socket, se deben recibir todos los datos que se envían desde el cliente (utilizando, por ejemplo, do_recv desde gen_tcp description).

De lo contrario, hay una condición de carrera para que el navegador/proxy envíe la solicitud HTTP lo suficientemente rápido como para enviar la solicitud http antes de que se cierre el socket.

Answer 6

Otra forma, similar al ejemplo anterior gen_tcp pero con menos código y ya se ofrece como sugerencia, es usar el 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().              

Tenga en cuenta, esto expone su directorio /tmp.

para correr, simplemente:

$ escript ./hello_erlang.erl