Erlang 中gen_tcp 用于编写TCP程序,gen_udp用于编写UDP程序。一个简单的TCP服务器echo示例:
复制代码 代码如下:
Start_echo_server()->
{ok,Listen}= gen_tcp:listen(1234,[binary,{packet,4},{reuseaddr,true},{active,true}]),
{ok,socket}=get_tcp:accept(Listen),
gen_tcp:close(Listen),
loop(Socket).
loop(Socket) ->
receive
{tcp,Socket,Bin} ->
io:format(“serverreceived binary = ~p~n”,[Bin])
Str= binary_to_term(Bin),
io:format(“server (unpacked) ~p~n”,[Str]),
Reply= lib_misc:string2value(Str),
io:format(“serverreplying = ~p~n”,[Reply]),
gen_tcp:send(Socket,term_to_binary(Reply)),
loop(Socket);
{tcp_closed,Socket} ->
Io:format(“ServerSocket closed ~n”)
end.
Tcp 的echo客户端示例:
复制代码 代码如下:
echo_client_eval(Str) ->
{Ok,Socket} = gen_tcp:connect(“localhost”,2345,[binary,{packet,4}]),
ok= gen_tcp:send(Socket, term_to_binary(Str)),
receive
{tcp,Socket,Bin}->
Io:format(“Clientreceived binary = ~p~n”,[Bin]),
Val=binary_to_term(Bin),
io:format(“Clientresult = ~p~n”,[Val]),
gen_tcp:close(Socket)
end.
UDP server示例
复制代码 代码如下:
udp_demo_server(Port) ->
{ok,Socket}= gen_udp:open(Open,[Binary]),
loop(Socket).
Loop(Socket)->
receive
{udp,Socket,Host,Port,Bin}->
BinReply= …,
gen_udp:send(Socket,Host,Port,BinReply),
loop(Socket)
End.
UDP client 示例:
复制代码 代码如下:
udp_demo_client(Request) ->
{ok,Socket}= gen_udp:open(0,[Binary]),
ok= gen_udp:send(Socket,”localhost”,1234,Request),
Value= receive
{udp,Socket,_,_,Bin}-> {ok,Bin}
after2000 -> error
end,
gen_udp:close(Socket),
Value
注意,因为UDP是不可靠的,一定要设一个超时时间,而且Reqeust最好小于500字节。
WebSocket, JS 和Erlang相结合,能够实现Web的绝大多数功能。
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
更新日志
- 原画壁纸及美图第206期,无水印可自取
- 归龙潮蜃境宝库怎么玩 材料副本介绍
- 鸣潮散华配队推荐 阵容怎么搭配
- 剑灵2手游职业推荐攻略 玩什么职业好
- dnf神话自选礼盒选什么
- dnf称号封装需要多少个蜜蜡
- dnf攻坚战单人模式怎么打
- 《庄园领主》首发6.6折,杉果春促史低游戏推荐
- 你口味这么重吗 囧图 这个姿势是会拉到座圈上的吧
- 蛋究竟要怎么玩才好?动图 排球少女的臀部过于肥美
- 翁倩玉.1974-温情满人间【海山】DTS【WAV分轨】
- 范琳琳.2012-爱与海【大藏】【WAV+CUE】
- 萧淑慎.2002-爱恨萧淑慎【滚石】【WAV+CUE】
- 618淘宝京东均取消预售机制 618提前开打
- 2024五一档新片预售票房破亿:《九龙城寨之围城》登顶