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 回答