4

我正在编写一个 gen_server,我们将称之为 gen_server_db,它并没有什么特别之处。它使用的库 (emysql) 有可能在尝试查找数据库服务器时遇到连接失败(在 gen_server_db:init() 中)。当我捕捉到异常并尝试将某些内容打印到控制台时,我得到了 zip。在下面的代码示例中,两个 io:format 消息都无法到达控制台。我似乎记得很久以前听到过这个的原因,但我不记得为什么。

init(Args) ->
    % I've condensed the way I actually get this stuff to one line, but if I have a
    % database online I connect properly, so I know that I'm getting the Host, User, etc.  
    {Host, User, Password, DB, PoolSize} = application:get_env(gen_server_db, config),

    init_mysql_connection(gen_server_db_pool, PoolSize, User, Password, Host, DB),

    % When the net connection to the db is down, I never get here.
    ok.

init_mysql_connection(bgo_db_pool, PoolSize, User, Password, Host, DB) ->
    try
        emysql:add_pool(bgo_db_pool, PoolSize, User, Password, Host, 3306, DB, utf8)
    catch
        exit:failed_to_connect_to_database ->
            io:format("Cannot connect to the mysql database server.  Retrying in 1 sec.~n"),
            timer:sleep(1000),
            init_mysql_connection(bgo_db_pool, PoolSize, User, Password, Host, DB);
        Error:Reason ->
            io:format("Database connection error: ~p:~p~n", [Error, Reason]),
            1/0
    end.
4

2 回答 2

4

通过 io:format 发送的所有 I/O 都发送到正在运行的进程的当前group_leader。然后这个进程负责使用 io:fwrite 打印消息。

如果您只想在编码时转储一些调试信息,您可以使用 erlang:display/1

于 2012-04-27T08:27:43.707 回答
0

我建议您使用 error_logger 模块而不是 io:format。io:format 将消息输出到 tty 控制台,一个标准输出。如果您的 gen_server 由控制台启动,您将看到这些消息,但是,如果您的服务器以分离模式启动,您将永远不会看到这些消息。

这是一本手册,您需要启动 SASL。

http://www.erlang.org/doc/man/error_logger.html

在您的配置文件中,您需要为此日志定义输出文件。

....
{sasl, [{sasl_error_logger, {file,"/tmp/sasl_error.log"}},{errlog_type, all}]}
....
于 2012-04-27T15:50:59.653 回答