Erlang学习记录:app demo

目录结构

│  Emakefile

│  make.bat

│  start.bat

├─config

│      config.config

│      server.app

├─ebin

│      wulin_app.beam

│      wulin_sup.beam

│      util.beam

│      demo.beam

├─logs

│	   debug.log

└─src

       wulin_app.erl

       wulin_sup.erl

       util.erl

       demo.erl

config 配置目录

ebin 编译输出目录

logs 日志输出目录

src 源代码目录

Emakefile(编译配置)

{["src/*"],[{outdir, "ebin"}]}.

src/* 表示编译src目录下所有的源代码文件

outdir 指定编译后的beam文件输出目录

make.bat(编译命令)

erl -make all

start.bat(启动app)

cd config

erl -name wulin@192.168.1.1 -setcookie mywulin -boot start_sasl -noshell -config config -pa ../ebin/ -s wulin_app start

-noshell 禁止输入

-config xxx 加载文件名为xxx.config的配置

-pa 指定目录

-s xxx yyy 启动xxx模块的yyy函数

config.config(env变量)

[

    {

        sasl,

        [

            {sasl_error_logger, false},

            {errlog_type, error},

            {error_logger_mf_dir, "../logs"},

            {error_logger_mf_maxbytes, 1048760},

            {error_logger_mf_maxfiles, 10}

        ]

    },{

       ab,

       []

      }

].

可以在程序内使用application:get_env/2获取这里定义的变量

示例:application:get_env(sasl, error_logger_mf_dir). 返回{ok,"../logs"}

server.app

{

   application, server % 对应文件名

   , [{description,  "Server"}

      , {vsn, '1.0a'}

      , {modules, []}

      , {registered, []}

      , {applications, [kernel, stdlib, sasl]} % 依赖库

      , {env, [{author, "demo"}]}

      , {mod, {wulin_app, [12321]}} % 依赖模块,主模块

      , {start_phases, []}]

}.

server(app名)必须和server.app(文件名)一致

wulin_app.erl

-module(wulin_app).

-behaviour(application).

-export([start/2,start/0, stop/1]). 

start() ->

 application:start(server).

start(_Type, [A]) ->

    util:debug("Server Starting.... ~p ~n", [A]),

    util:debug("Server Starting.... ~n", []),

    {ok, Pid} = wulin_sup:start_link(),

    util:debug("Server Started in ~p ~n", [Pid]),

    {ok, Pid}.  

stop(_State) ->

    io:format("Server Stoped..... ~n").

application:start(server)中的server对应server.app中的server

wulin_sup.erl

-module(wulin_sup).

-behaviour(supervisor).

-export([start_link/0,init/1]).

start_link() ->

    supervisor:start_link({local,?MODULE}, ?MODULE, []).

init([]) ->

    {ok, {{one_for_one, 3, 10},[

    	{demo, {demo, start, []}, permanent, 10000, worker, []}

    ]}}.

demo.erl

-module(demo).

-export([start/0]).

start() ->

    util:debug("xxxxx ~n", []),

    {'ok', self()}.

util.erl

-module(util).

-export([debug/2]). 

debug(F, Args) ->

	{ok, LogPath} = application:get_env(sasl, error_logger_mf_dir),

	File = LogPath ++ "/debug.txt",

	{ok, Steam} = file:open(File, [write, append]),

	io:format(Steam, F, Args),

	file:close(Steam).

debug.log

Server Starting.... 12321

Server Starting....

xxxxx

Server Started in <0.49.0>

流程

start.bat -> wulin_app:start/0 -> server.app ->

wulin_app:start/2 -> wulin_sup:start_link/0 -> demo:start/0

巴特西