Anonymous user
Hello world/Web server: Difference between revisions
Added Erlang
(Add Racket version) |
(Added Erlang) |
||
Line 323:
end class
end namespace
</lang>
=={{header|Erlang}}==
Adapted from a [http://www.erlang.org/upload/klacke_examples/time_server.erl time server].
<lang erlang>
-module(hello_world_server).
-export([start/0, loop0/1]).
-define(PORTNO, 8080).
start() ->
start(?PORTNO).
start(Pno) ->
spawn(?MODULE, loop0, [Pno]).
loop0(Port) ->
case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of
{ok, LSock} ->
loop(LSock);
_ ->
stop
end.
loop(Listen) ->
case gen_tcp:accept(Listen) of
{ok, S} ->
gen_tcp:send(S, io_lib:format("Goodbye, World!~n", [])),
gen_tcp:close(S),
loop(Listen);
_ ->
loop(Listen)
end.
</lang>
| |||