database - 防止添加主键已存在于 mnesia 中的记录的最佳方法是什么？

Question

假设我有一个简单的记录定义:

-record(data, {primary_key = '_', more_stuff = '_'}).

我想要一个简单的函数，将这些记录之一添加到 mnesia 数据库中。但如果已经有一个具有相同主条目的条目，我希望它失败键。

(在下面的例子中，假设我已经定义了

db_get_data(Key)->
    Q = qlc:q([Datum
               || Datum = #data{primary_key = RecordKey}
                      <- mnesia:table(data),
                  RecordKey =:= Key]),
    qlc:e(Q).

)

下面的作品，但让我觉得有点丑......

add_data(D) when is_record(D, data)->
    {atomic, Result} = mnesia:transaction(fun()->
                                                  case db_get_data(D#data.primary_key) of
                                                      [] -> db_add_data(D);
                                                      _ -> {error, bzzt_duplicate_primary_key}
                                                  end
                                          end),

    case Result of
        {error, _} = Error -> throw(Error);
        _ -> result
    end.

这也行，但也很丑:

add_data(D) when is_record(D, data)->
    {atomic, Result} = mnesia:transaction(fun()->
                                                  case db_get_data(D#data.primary_key) of
                                                      [] -> db_add_data(D);
                                                      _ -> throw({error, bzzt_duplicate_primary_key})
                                                  end
                                          end).

和上面不同的是上面抛出

{error, bzzt_duplicate_primary_key},

而这个抛出

{error, {badmatch, {aborted, {throw,{error, bzzt_duplicate_primary_key}}}}}

那么:是否有一些约定来指示此类错误？或者是否有一种内置方法可以让 mnesia 为我抛出此错误？

Answer 1

我认为它们都很好，如果你只是让你的代码更漂亮，比如:

add_data(D) when is_record(D, data)->

    Fun = fun() ->
                  case db_get_data(D#data.primary_key) of
                      [] -> db_add_data(D);
                      _  -> throw({error, bzzt_duplicate_primary_key})
                  end
          end,

    {atomic, Result} = mnesia:activity(transaction, Fun).

或

add_data(D) when is_record(D, data)->

    Fun = fun() ->
                  case db_get_data(D#data.primary_key) of
                      [] -> db_add_data(D);
                      _  -> {error, bzzt_duplicate_primary_key}
                  end
          end,

    {atomic, Result} = mnesia:activity(transaction, Fun),

    case Result of
        {error, Error} -> throw(Error);
        _              -> result
    end.

你是抛出错误还是返回错误？我自己会返回一个错误。我们将代码分成 mnesia 工作单元——一个具有一组功能的模块，这些功能执行基本的 mnesia 事件，而不是在事务中，以及一个 api 模块，它将工作单元“组合”成 mnesia 事务，其功能看起来与上面的非常相似.