Erlang应用部署与热代码替换--理解1

最新推荐文章于 2017-09-29 16:20:30 发布

langxianwu

最新推荐文章于 2017-09-29 16:20:30 发布

阅读量209

点赞数

分类专栏： erlang 文章标签： Erlang 脚本 HTML

erlang 专栏收录该内容

99 篇文章 0 订阅

订阅专栏

最近几天看了一下erlang的代码热替换，原本计划三天。现在花了快5天了，才刚刚有点对头。

开始我搜了一下，没有找到前人的例子，Erlang程序设计上面的热代码替换例子只不过是个替换思想，实际的应用替换要复杂的多。

我只好从API gen_server中Module:code_change/3开始看。找到OTP Design Principles （http://www.erlang.org/doc/design_principles/release_handling.html#instr）

。本以为就可以解决此问题了，后来发现只不过是个小小的救命草，接下来看了Release Handling,Releases,Appup Cookbook,systools,reltool等。

整个过程遇到了unpacke_release,install_release两个最耽误时间错误。

出现unpacke_release,install_release操作错误的原因是我没有发布第一个版本，（创建第一个版本：http://www.erlang.org/doc/system_principles/create_target.html）。

应用部署与热替换大体步骤：

一、发布第一个版本 (详细参考:http://www.erlang.org/doc/system_principles/create_target.html)

1>创建发布.rel文件

 {release,
 {"sellaprimeA", "1"},
 {erts, "5.7.5"},
 [{kernel, "2.13.5"},
  {stdlib, "1.16.5"},
  {sasl, "2.1.9"},
  {sellaprimeA,"1.0"}]}.

2>创建第一个发布版本程序

target_system:create("sellaprimeA").

3>安装

target_system:install("sellaprimeA", "/usr/local/target_sellaprime").

4>启动程序

/usr/local/target_sellaprime/bin/erl -boot /usr/local/target_sellaprime/releases/1/start

留心：需要注意的是 target_system.erl 并没有在erlang lib中，需要自安添加编译。

二、代码热替换 (详细参考：http://www.erlang.org/doc/design_principles/release_handling.html#id2273657)

1>创建发布.rel文件

2>创建启动脚本 systools:make_script/1

3>创建 relup文件 systools:make_relup/3

4>创建 tar包 systools:make_tar/1

5>复制到发布目录下

6>解包 release_handler:unpack_release/1

7>安装 release_handler:install_release/1

8>持久化 release_handler:make_permanent/1

9>删除老的版本 release_handler:remove_release/1

三、未解决的问题：

1> 执行 unpacke_release、install_release函数操作时，必须在特定的shell下，就是启动一个发布程序的shell下。

如果我是在noshell下启动的话，我就无法执行热代码替换了。有没有其他方法？请老师赐教,谢谢！

如我必须在/usr/local/target_sellaprime/bin/erl -boot /usr/local/target_sellaprime/releases/1/start启动的shell。

2> 更新 new_area_server.erl模块时，state状态丢失，即ets:new(?MODULE,[])内存表被清空。

根据API中的设计原则上配置的sellaprime.appup(我没有看出哪里有错).

Erlang 写道

sellaprime.appup
{"6",
[{"5",[{update, new_area_server,{advanced,Extra}}]}],
[{"5",[{update, new_area_server,supervisor}]}]
}.

-module(new_area_server).
-behaviour(gen_server).

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

%% gen_server callbacks

-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
         terminate/2, code_change/3]).

start_link() ->
    gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).

%% @type Thing()=autom()
%% @doc langxianzeu
area(Thing) ->
    gen_server:call(?MODULE, {area, Thing}).

init([]) ->
    %% Note we must set trap_exit = true if we 
    %% want terminate/2 to be called when the application
    %% is stopped
    process_flag(trap_exit, true),
    io:format("~p starting add ets table~n",[?MODULE]),
    {ok, ets:new(?MODULE,[])}.

handle_call({area, Thing}, _From, State) ->
        Reply = compute_area(Thing),
        ets:insert(State,{Thing,Reply}),
        io:format("~n==[handle_call]=======tab=~p=====~n",[ets:tab2list(State)]),
        {reply, Reply, State}.

handle_cast(_Msg, N)  -> {noreply, N}.

handle_info(_Info, N)  -> {noreply, N}.

terminate(_Reason, _N) ->
    io:format("~p stopping~n",[?MODULE]),
    ok.

code_change(_OldVsn, N, _Extra) -> {ok, N}.

compute_area({square, X})       -> io:format("~n===[new_area_server:compute_area-code_chanage-06~p~n====",[X*X]),X*X;
compute_area({rectongle, X, Y}) -> X*Y.

3> 当 new_area_server中的（改变进程状态的存储方式）

init([]) ->

process_flag(trap_exit, true),

io:format("~p starting add ets table~n",[?MODULE]),

{ok, 0}.

替换为

init([]) ->

process_flag(trap_exit, true),

io:format("~p starting add ets table~n",[?MODULE]),

{ok,

ets:new(?MODULE,[])

时如何保存以前的状态