一个完整的Erlang应用
http://blog.chinaunix.net/uid-25876834-id-3308693.html
这里介绍构建一个完整的Erlang/OTP应用的例子,最后还给出了一个在实际生成环境中,如何启动应用的才能方便运维人员维护和部署的实例。例子摘自 《Manning.Erlang.and.OTP.in.Action》(国内目前已经有中文版发行)。
点击(此处)折叠或打开
- {application,tcp_rpc,
- [{description,"RPC Server for Erlang and OTP in action"},
- {vsn, "0.1.0"},
- {modules,[tr_app,
- tr_sup,
- tr_server]},
- {registered, [tr_sup]},
- {applications, [kernel, stdlib]},
- {mod, {tr_app, []}}
- ]}.
2、应用启动模块 tr_app.erl
点击(此处)折叠或打开
- -module(tr_app).
- -behaviour(application).
- %% --------------------------------------------------------------------
- %% Include files
- %% --------------------------------------------------------------------
- %% --------------------------------------------------------------------
- %% Behavioural exports
- %% --------------------------------------------------------------------
- -export([
- start/2,
- stop/1
- ]).
- %% --------------------------------------------------------------------
- %% Internal exports
- %% --------------------------------------------------------------------
- %% -export([]).
- %% ====================================================================!
- %% External functions
- %% ====================================================================!
- %% --------------------------------------------------------------------
- %% Func: start/2
- %% Returns: {ok, Pid} |
- %% {ok, Pid, State} |
- %% {error, Reason}
- %% --------------------------------------------------------------------
- start(_Type, _StartArgs) ->
- case tr_sup:start_link() of
- {ok, Pid} ->
- {ok, Pid};
- Error ->
- {error,Error}
- end.
- %% --------------------------------------------------------------------
- %% Func: stop/1
- %% Returns: any
- %% --------------------------------------------------------------------
- stop(_State) ->
- ok.
3、顶层监督模块 tr_sup.erl
点击(此处)折叠或打开
- -module(tr_sup).
- -behaviour(supervisor).
- -export([start_link/0]).
- -export([
- init/1
- ]).
- -define(SERVER, ?MODULE).
- start_link() ->
- supervisor:start_link({local, ?SERVER}, ?MODULE, []).
- init([]) ->
- Server = {tr_server,
- {tr_server,start_link,[]},
- permanent, 2000, worker, [tr_server]},
- {ok,{
- {one_for_one,0,1},
- [Server]
- }
- }.
4、服务器模块 tr_server.erl
点击(此处)折叠或打开
- %%%-------------------------------------------------------------------
- %%% @author <龙二>
- %%% @copyright (C) 2012,
- %%% @doc RPC over TCP server. This module defines a server process that
- %%% listens for incoming TCP connections and allows the user to
- %%% execute RPC commands via that TCP stream.
- %%% @end
- %%% Created : 2 Jul 2012 by <emacs>
- %%%-------------------------------------------------------------------
- -module(tr_server).
- -include_lib("eunit/include/eunit.hrl"). %% Eunit单元测试
- -behaviour(gen_server).
- %% API
- -export([
- start_link/1,
- start_link/0,
- get_count/0,
- stop/0
- ]).
- %% gen_server callbacks
- -export([init/1,handle_call/3,handle_cast/2,handle_info/2,
- terminate/2,code_change/3]).
- -define(SERVER,?MODULE).
- -define(DEFAULT_PORT,1055).
- -record(state,{port,lsock,request_count = 0}).
- %%%===================================================
- %%% API
- %%%===================================================
- %%----------------------------------------------------
- %% @doc Starts the server.
- %%
- %% @spec start_link(Port::integer()) -> {ok,Pid}
- %% where
- %% Pid = pid()
- %% @end
- %%----------------------------------------------------
- start_link(Port) ->
- gen_server:start_link({local,?SERVER},?MODULE,[Port],[]).
- %% @spec start_link() -> {ok,Pid}
- %% @doc Calls 'start_link(Port)' using the default port
- start_link() ->
- start_link(?DEFAULT_PORT).
- %%----------------------------------------------------
- %% @doc Fetches the number of requests made to this server
- %% @spec get_count() -> {ok,Count}
- %% where
- %% Count = integer()
- %% @end
- %%----------------------------------------------------
- get_count() ->
- gen_server:call(?SERVER,get_count).
- %%----------------------------------------------------
- %% @doc Stops the server
- %% @spec stop() -> ok
- %% @end
- %%----------------------------------------------------
- stop() ->
- gen_server:cast(?SERVER,stop).
- %%%===================================================
- %%% gen_server callbacks
- %%%===================================================
- init([Port]) ->
- {ok,LSock} = gen_tcp:listen(Port,[{active,true}]),
- %% 0 is timeout value
- %% a atom msg 'timeout' will be generate
- %% handle_info/2 will handle this msg immediately when init/1 finished
- {ok,#state{port = Port,lsock = LSock},0}.
- handle_call(get_count,_From,State) ->
- {reply,{ok,State#state.request_count},State}.
- handle_cast(stop,State) ->
- {stop,normal,State}.
- %% handle_info/2: handle tcp,port,timeout msg
- handle_info({tcp,Socket,RawData},State) ->
- do_rpc(Socket,RawData),
- RequestCount = State#state.request_count,
- {noreply,State#state{request_count = RequestCount + 1}};
- handle_info(timeout,#state{lsock = LSock} = State) ->
- {ok,_Sock} = gen_tcp:accept(LSock),
- {noreply,State}.
- terminate(_Reason,_State) ->
- ok.
- code_change(_OldVsn,State,_Extra) ->
- {ok,State}.
- %%%===================================================
- %%% Internal functions
- %%%===================================================
- do_rpc(Socket,RawData) ->
- try
- {M,F,A} = split_out_mfa(RawData),
- Request = apply(M,F,A),
- gen_tcp:send(Socket,io_lib:fwrite("~p~n",[Request]))
- catch
- _Class:Err ->
- gen_tcp:send(Socket,io_lib:fwrite("~p~n",[Err]))
- end.
- split_out_mfa(RawData) ->
- MFA = re:replace(RawData,"\r\n$","",[{return,list}]),
- {match,[M,F,A]} =
- re:run(MFA,
- "(.*):(.*)\s*\\((.*)\s*\\)\s*.\s*$",
- [{capture,[1,2,3],list},ungreedy]),
- {list_to_atom(M),list_to_atom(F),args_to_terms(A)}.
- args_to_terms(RawArgs) ->
- {ok,Toks,_Line} = erl_scan:string("[" ++ RawArgs ++ "]. ",1),
- {ok,Args} = erl_parse:parse_term(Toks),
- Args.
5、启动整个应用的开启模块 tr.erl
点击(此处)折叠或打开
- -module(tr).
- -export([start/0]).
- %%
- %% API Functions
- %%
- %% 启动应用
- start() ->
- case application:start(tcp_rpc) of
- ok ->
- ok;
- Msg ->
- {failur, Msg}
- end.
- %% 关闭应用
- stop() ->
- case application:stop(tcp_rpc) of
- ok ->
- ok;
- Msg ->
- {failure, Msg}
- end.
6、启动脚本 start_tr.sh (windows下为start_tr.bat)
点击(此处)折叠或打开
- erl -pa ebin -name tr@127.0.0.1 -setcookie tr -s tr start
- chmod +x start_tr.sh
- windows下的话,需要将erl这个程序加入到环境变量,否则就要使用绝对路径来应用erl程序
点击(此处)折叠或打开
- { ["src/*"]
- , [
- {outdir, "./ebin"}]
- }.
配合 erl -make 来编译这个应用。
- , [
- {outdir, "./ebin"}]
- }.
配合 erl -make 来编译这个应用。
一个完整的Erlang应用的更多相关文章
- 如何一步一步用DDD设计一个电商网站(十)—— 一个完整的购物车
阅读目录 前言 回顾 梳理 实现 结语 一.前言 之前的文章中已经涉及到了购买商品加入购物车,购物车内购物项的金额计算等功能.本篇准备把剩下的购物车的基本概念一次处理完. 二.回顾 在动手之前我对之 ...
- 【如何快速的开发一个完整的iOS直播app】(美颜篇)
原文转自:袁峥Seemygo 感谢分享.自我学习 前言 在看这篇之前,如果您还不了解直播原理,请查看这篇文章如何快速的开发一个完整的iOS直播app(原理篇) 开发一款直播app,美颜功能是很重 ...
- 【如何快速的开发一个完整的iOS直播app】(采集篇)
原文转自:袁峥Seemygo 感谢分享.自我学习 前言 在看这篇之前,如果您还不了解直播原理,请查看这篇文章如何快速的开发一个完整的iOS直播app(原理篇) 开发一款直播app,首先需要采集主 ...
- 【如何快速的开发一个完整的iOS直播app】(播放篇)
原文转自:袁峥Seemygo 感谢分享.自我学习 前言 在看这篇之前,如果您还不了解直播原理,请查看上篇文章如何快速的开发一个完整的iOS直播app(原理篇) 开发一款直播app,集成ijkpl ...
- 【如何快速的开发一个完整的iOS直播app】(原理篇)
原文转自:袁峥Seemygo 感谢分享.自我学习 目录 [如何快速的开发一个完整的iOS直播app](原理篇) [如何快速的开发一个完整的iOS直播app](播放篇) [如何快速的开发一个完整的 ...
- 一个完整的Http请求
一个完整的http请求,通常有以下7点: 1.建立tcp连接 2.web浏览器web服务器发送请求命令 3.web浏览器发送请求头信息 4.web服务器应答 5.web服务器发送应答信息 6.web服 ...
- Django1.8教程——从零开始搭建一个完整django博客(一)
第一个Django项目将是一个完整的博客网站.它和我们博客园使用的博客别无二致,一样有分类.标签.归档.查询等功能.如果你对Django感兴趣的话,这是一个绝好的机会.该教程将和你一起,从零开始,搭建 ...
- 第三十六课:如何书写一个完整的ajax模块
本课主要教大家如何书写一个完整的ajax模块,讲解的代码主要跟ajax有关,而jQuery的ajax模块添加了Deferred异步编程的机制,因此对ajax的理解难度增大,还是忽略掉.但是我要讲解的代 ...
- 【如何快速的开发一个完整的iOS直播app】(推流篇)
前言 在看这篇之前,如果您还不了解直播原理,请查看这篇文章如何快速的开发一个完整的iOS直播app(原理篇) 开发一款直播app,肯定需要流媒体服务器,本篇主要讲解直播中流媒体服务器搭建,并且讲解了如 ...
随机推荐
- js常用数据转换&判断
数组转字符串 var a, b; a = new Array(0,1,2,3,4); b = a.join("-"); //"0-1-2-3-4" 字符串转数组 ...
- 6. MongoDB
https://www.mongodb.com/ https://pan.baidu.com/s/1mhPejwO#list/path=%2F 安装MongoDB# 安装MongoDB http:// ...
- 【“玲珑杯”ACM比赛 Round #20 H】康娜的数学课
[链接]http://www.ifrog.cc/acm/problem/1161 [题意] 在这里写题意 [题解] 首先x<l肯定无解; 然后,肯定是要选其中的一些数字的. 而且这些数字肯定是大 ...
- 【Codeforces Round #431 (Div. 2) A】Odds and Ends
[链接]点击打开链接 [题意] 让你把一个数组分成奇数个部分. 且每个部分的长度都是奇数. [题解] 很简单的脑洞题. 开头和结尾一定要为奇数,然后 n为奇数的话,就选整个数组咯. n为偶数的话,不能 ...
- VIP的转移
首先查看vip在各个节点的状态 [root@rac2 ~]# ifconfig eth0 Link encap:Ethernet HWaddr 08:00:27:C9:28:D0 inet addr: ...
- UVA 11796 - Dog Distance 向量的应用
http://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_problem&p ...
- IDEACould not autowire. No beans of 'xxxMapper' type found.
作为一名刚开始使用idea的新手,最近在使用maven+springMVC框架时遇到了这样一个问题:Could not autowire. No beans of 'xxxMapper' type f ...
- java.util.ConcurrentModificationException(如何避免ConcurrentModificationException)
java.util.ConcurrentModificationException is a very common exception when working with java collecti ...
- Mosquito的优化——订阅树优化(八)
本文由逍遥子撰写.转发请标注原址: http://blog.csdn.net/houjixin/article/details/46413783 或 http://houjixin.blog.163. ...
- 关于Altium Designer的BOM,元件清单
在生成BOM列表的时候,要记得调整BOM的表格的宽度,以免显示不全, 还有就是BOM列表一共有 comment栏 ,description栏,designator栏,footprint栏,libref ...