Sockets: Difference between revisions

147 bytes removed ,  13 years ago
→‎{{header|Erlang}}: The Erlang version was a server that the other programs could connect to, corrected it to be a client instead
(Erlang version)
(→‎{{header|Erlang}}: The Erlang version was a server that the other programs could connect to, corrected it to be a client instead)
Line 263:
 
start() ->
{ok, ListenSock} = gen_tcp:listenconnect(256"localhost", [])256,
[binary, {packet, 0}]),
{ok, Socket} = gen_tcp:accept(Listen),
ok = gen_tcp:closesend(ListenSock, "Some Data"),
loopok = gen_tcp:close(SocketSock).
 
loop(Socket) ->
receive
{tcp, Socket, _} ->
gen_tcp:send(Socket, "hello socket world"),
loop(Socket);
{tcp_closed, Socket} ->
ok
end.
</lang>