mnesia的脏读和事物读的测试

在mnesia中，有脏读脏写等以及事物读写，它们的差异通过测试不难发现：

代码如下：

-module(mnesia_read_test).

-compile(export_all).

-record(r_test, {id, name}).

start(N) ->

    timer:tc(mnesia_read_test,dirty_read,[N]).

start2(Num) ->

    timer:tc(mnesia_read_test,t_read,[Num]).

init() ->

    case mnesia:create_schema([node()]) of

        ok ->

            ok;

        _ ->

            mnesia:delete_schema([node()]),

            mnesia:create_schema([node()])

    end, 

    mnesia:start(),

 

    case mnesia:create_table(r_test, [{attributes, record_info(fields, r_test)},

                                      {record_name, r_test},{disc_copies, [node()]}]) of

               {atomic, ok} ->

                                    ok;

                _Any1 ->

                            mnesia:delete_table(r_test),

                            mnesia:create_table(r_test, [{attributes, record_info(fields, r_test)},

                                      {record_name, r_test},{disc_copies, [node()]}])

    end,

        mnesia:transaction(fun() -> t_write(10000) end).

        t_write(0) ->

                    ok;

        t_write(N) ->

                    Name = lists:append(["name_", N]),

                    R = #r_test{id=N, name=Name},

                    mnesia:write(R),

                    t_write(N-1).

dirty_read(0) ->

    ok;

dirty_read(Num) ->

    mnesia:dirty_read(r_test, Num),

    dirty_read(Num-1).

t_read(0) ->

        ok;

t_read(Num) ->

        mnesia:transaction( fun() -> mnesia:read(r_test, Num) end),

        t_read(Num-1).

%%这里创建的表类型为：disc_copies

{disc_copies,NodeList} NodeList每个节点都有内存备份和磁盘备份

测试结果如下：

不难发现，脏读比事物读快了至少1个——2个数量级，获取的结果为微秒（1秒 = 1000000微秒）

从mnesia.erl 追踪脏读源码到mnesia_lib.erl中：

db_get(Tab, Key) ->

db_get(val({Tab, storage_type}), Tab, Key).

db_get(ram_copies, Tab, Key) -> ?ets_lookup(Tab, Key);

db_get(disc_copies, Tab, Key) -> ?ets_lookup(Tab, Key);

db_get(disc_only_copies, Tab, Key) -> dets:lookup(Tab, Key).

发现是ets直接操作。

巴特西

mnesia的脏读和事物读的测试

最新文章

热门文章