15 lines
408 B
Erlang
15 lines
408 B
Erlang
-module(hello_server).
|
|
|
|
-export([main/0]).
|
|
|
|
main() ->
|
|
{ok, ListenSocket} = gen_tcp:listen(6969, [binary, {packet, 0}, {active, false}]),
|
|
%% blocks until client connects
|
|
{ok, Socket} = gen_tcp:accept(ListenSocket),
|
|
Msg = <<"hello, world">>,
|
|
ok = io:format("> ~tp~n", [Msg]),
|
|
ok = gen_tcp:send(Socket, Msg),
|
|
ok = gen_tcp:close(Socket),
|
|
ok = gen_tcp:close(ListenSocket),
|
|
ok.
|