December 30th Monday 2009

最新推荐文章于 2023-08-15 15:56:49 发布

Lu_ming

最新推荐文章于 2023-08-15 15:56:49 发布

阅读量658

点赞数

本文链接：https://blog.csdn.net/lu_ming/article/details/5105149

版权

-module(test_tcp).
-compile(export_all).

go(S) ->
send("192.168.1.99", 9001, S).

send(Host, Port, Str) ->
    {ok, Socket} = gen_tcp:connect(Host, Port, [binary, {packet, 0}]),
    ok = gen_tcp:send(Socket, Str),
    wait(Socket).

wait(Socket) ->
    receive
        {tcp, Socket, Bin} ->
            io:format("Client received binary = ~p~n", [Bin]),
            wait(Socket);
        {tcp_closed, Socket} ->
            io:format("A connection is shut down. ~n"),
            gen_tcp:close(Socket)
    end.

The above is a little erlang program to test the biogine program during developing.