Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -module (eh).
- -compile([export_all]).
- server() ->
- {ok, LSock} = gen_tcp:listen(8000, [binary, {packet, 0},
- {active, false}]),
- {ok, Sock} = gen_tcp:accept(LSock),
- {ok, Bin} = do_recv(Sock, []),
- ok = gen_tcp:close(Sock),
- Bin.
- do_recv(Sock, Bs) ->
- case gen_tcp:recv(Sock, 0) of
- {ok, B} ->
- do_recv(Sock, [Bs, B]);
- {error, closed} ->
- {ok, list_to_binary(Bs)}
- end.
Add Comment
Please, Sign In to add comment