3

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

-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).

它与上面的不同之处在于上面的 throws

{error, bzzt_duplicate_primary_key},

而这个抛出

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

那么：是否有一些约定来指示这种错误？或者有没有一种内置的方法可以让 mnesia 为我抛出这个错误？

4

1 回答 1

3

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

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 事务，其功能看起来与上面的非常相似.

于 2009-04-07T06:18:52.970 回答