新手求助：如何加载含.DCD/.DCL的Mnesia数据库并导出为文本/CSV

一、加载现有Mnesia数据库文件 #

Mnesia的.DCD（数据文件）、.DCL（锁文件）、schema.DAT（元数据文件）是节点本地存储的核心文件，加载步骤如下：

1. 启动Erlang节点并指定Mnesia目录
   打开终端，启动Erlang shell时通过参数指定数据库文件夹路径（替换/path/to/your/db_dir为你的实际文件夹路径）：

   erl -mnesia dir '/path/to/your/db_dir'
   

2. 加载schema并启动Mnesia
   在Erlang shell中依次执行：

   % 加载数据库元数据
   mnesia:load_schema().
   % 启动Mnesia服务
   mnesia:start().
   

   若返回ok则启动成功；若报错，检查文件夹路径是否正确、文件是否具备可读权限。

3. 验证表加载状态
   执行命令查看当前节点的所有Mnesia表：

   mnesia:system_info(tables).
   

   返回列表中包含你的业务表，即说明加载成功。

二、导出数据为文本/CSV格式 #

方式1：导出为CSV格式 #

假设目标表名为your_table，在Erlang shell中执行以下代码（替换输出路径和表名）：

% 打开CSV输出文件
{ok, File} = file:open("/path/to/output.csv", [write]).
% 查询表中所有记录
Records = mnesia:dirty_match_object(your_table, '_').
% 遍历记录并写入CSV（根据表结构调整字段处理逻辑）
lists:foreach(fun(Rec) ->
    % 将元组记录转为逗号分隔字符串，需注意处理含逗号的字段
    Fields = tuple_to_list(Rec),
    EscapedFields = lists:map(fun(Field) when is_list(Field) -> "\"" ++ string:replace(Field, "\"", "\\\"") ++ "\"";
                                 (Field) -> io_lib:format("~p", [Field]) end, Fields),
    Line = string:join(EscapedFields, ",") ++ "\n",
    file:write(File, Line)
end, Records).
% 关闭文件
file:close(File).

方式2：导出为纯文本格式 #

若只需要保留Erlang原生格式的文本文件，执行以下代码：

% 打开文本输出文件
{ok, File} = file:open("/path/to/output.txt", [write]).
% 查询表中所有记录
Records = mnesia:dirty_match_object(your_table, '_').
% 逐行写入记录（以Erlang术语格式保存）
lists:foreach(fun(Rec) ->
    file:write(File, io_lib:format("~p~n", [Rec]))
end, Records).
% 关闭文件
file:close(File).

三、注意事项 #

• 若Mnesia为分布式部署，仅在对应节点加载本地存储的文件，不要跨节点混用。
• 操作前务必备份数据库文件夹，避免误操作导致数据丢失。
• 若加载时出现{error, {not_active, Node}}，先执行mnesia:start()再尝试加载schema。

内容的提问来源于stack exchange，提问作者billybeo nguyen