Erlang学习记录:app demo

最新推荐文章于 2024-04-17 23:14:54 发布

转载最新推荐文章于 2024-04-17 23:14:54 发布 · 146 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/vmask/p/7867958.html

本文介绍了一个基于Erlang的应用构建过程，包括目录结构、编译配置、启动脚本等核心组件。从源代码目录到编译输出，再到启动应用的全过程均有详细说明。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

目录结构

│  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

转载于:https://www.cnblogs.com/vmask/p/7867958.html