防止添加主键已存在于 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 事务，其功能与上面的非常相似。