Question

目前我的Erlang应用程序是在escript（TCP服务器）中启动的，所有工作正常，因为它使用我提供的默认端口。现在我想通过escript将端口传递给应用程序，但我不知道如何。（该应用程序运行主管）

script.escript

!/usr/bin/env escript
%% -*- erlang -*-

-export([main/1]).

main([UDPort, TCPort]) ->
   U = list_to_integer(UDPort),
   T = list_to_integer(TCPort),

    app:start(), %% Want to pass T into the startup.
  receive
    _ -> ok
  end;

...

app.erl

-module(app).
-behaviour(application).

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

-define(PORT, 4300).

start () -> application:start(?MODULE). %% This is called by the escript.
stop () -> application:stop(?MODULE).

start (_StartType, _StartArgs) -> supervisor:start(?PORT).
stop (_State) -> ok.

我真的不确定使用应用程序是否可行，但我认为最好只是问。

Answer 1

常见的方法是从任何只调用

的shell开始

erl -run foo

但你也可以

erl -appname key value

设置环境值，然后

application:get_env(appname, key)

获取您正在寻找的价值。

那说......

我喜欢让服务应用程序成为不必关闭（重新）配置的东西。我通常包括一些消息协议，如{config, Aspect, Setting}或类似的，可以动态改变服务的基本状态。因为我经常这样做，所以通常只需启动任何脚本，应用程序也会向其发送配置消息。

因此，考虑到这一点，请考虑这个粗略的概念性示例：

!/usr/bin/env escript
%% -*- erlang -*-

-export([main/1]).

main([UDPort, TCPort]) ->
    U = list_to_integer(UDPort),
    T = list_to_integer(TCPort),
    ok = case whereis(app) of
        undefined ->  app:start();
        _Pid      ->  ok
    end,
    ok = set_ports(U, T).

%% Just an illustration.
%% Making this a synchronous gen_server/gen_fsm call is way better.
set_ports(U, T) ->
    app ! {config, listen, {tcp, T}},
    app ! {config, listen, {udp, U}},
    ok.

现在，启动脚本不仅是一个启动脚本，它还是一个配置脚本。关键是没有启动脚本，而是在您指定的端口上运行服务。当然，这不是所有工具的概念，但它应该给你一些想法。还有一种做法是将配置文件放在应用程序知道的某个地方，只是从中读取术语，以及其他技术（比如包括应用程序规范中的端口等）。

修改

我刚刚意识到你在一个escript中这样做，每次调用它时都会产生一个新节点。要使上述技术正常工作，您需要将escript名称作为服务运行的节点，并在已存在的情况下找到它。

Erlang escript使用启动参数启动应用程序

1 个答案: