21 lines
479 B
Erlang
21 lines
479 B
Erlang
% @doc echo server client
|
|
-module(echoc).
|
|
|
|
-export([main/0]).
|
|
|
|
main() ->
|
|
{ok, Socket} = gen_tcp:connect("localhost", 6969, [binary, {packet, 0}]),
|
|
loop(Socket).
|
|
|
|
|
|
loop(Socket) ->
|
|
ok = inet:setopts(Socket, [{active, once}]),
|
|
receive
|
|
{tcp, Socket, Bytes} ->
|
|
ok = io:format("< ~tp~n", [Bytes]),
|
|
loop(Socket);
|
|
{tcp_closed, Socket} ->
|
|
ok = io:format("connection terminated~n", []),
|
|
exit(normal)
|
|
end.
|