• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
描述文字

Erlang和Ruby的Socket通讯

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
server.erl 
Java代码 
  1. -module(server).  
  2. -export([start/0,start/1,process/1]).  
  3. -define(defPort, 8888).  
  4.   
  5. start() -> start(?defPort).  
  6.   
  7. start(Port) ->  
  8.   case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of  
  9.     {ok, LSock} -> server_loop(LSock);  
  10.     {error, Reason} -> exit({Port,Reason})  
  11.   end.  
  12.   
  13. %% main server loop - wait for next connection, spawn child to process it  
  14. server_loop(LSock) ->  
  15.   case gen_tcp:accept(LSock) of  
  16.     {ok, Sock} ->  
  17.       spawn(?MODULE,process,[Sock]),  
  18.       server_loop(LSock);  
  19.     {error, Reason} ->  
  20.       exit({accept,Reason})  
  21.   end.  
  22.   
  23. %% process current connection  
  24. process(Sock) ->  
  25.   Req = do_recv(Sock),  
  26.   Resp = "Hello, " ++ Req ++ "!",  
  27.   do_send(Sock,Resp),  
  28.   gen_tcp:close(Sock).  
  29.   
  30. %% send a line of text to the socket  
  31. do_send(Sock,Msg) ->  
  32.   case gen_tcp:send(Sock, Msg) of  
  33.     ok -> ok;  
  34.     {error, Reason} -> exit(Reason)  
  35.   end.  
  36.   
  37. %% receive data from the socket  
  38. do_recv(Sock) ->  
  39.   case gen_tcp:recv(Sock, 0) of  
  40.     {ok, Bin} -> binary_to_list(Bin);  
  41.     {error, closed} -> exit(closed);  
  42.     {error, Reason} -> exit(Reason)  
  43.   end.  


client.rb 
Java代码 
  1. require 'socket'  
  2.   
  3. client = TCPSocket.open('localhost', 8888)  
  4. client.send("hideto", 0)  
  5. puts client.readlines  
  6. client.close  


Erlang服务器编译运行： 
Java代码 
  1. Eshell > c(server.erl).  
  2. Eshell > server:start().  


Ruby客户端解释运行： 
Java代码 
  1. > ruby client.rb  
  2. Hello, hideto!  

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
ruby -- 进阶学习（七）strong parameters之permitted.has_key发布时间：2022-07-13
下一篇：
Windows下Ruby on rails 连接mysql数据库失败的解决方法发布时间：2022-07-13
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap