erlang ets選擇糟糕的arg

Question

erlang版本18.3

與Erlang ets有一個奇怪的錯誤：select / 1

以下代碼將從表中選擇元素並獲取它們 。

如果我做

save(10), %% insert 10 data

remove(3) %% remove 3 data per time

有用

如果我做

save(6007), %% insert  more datas

remove(400) %% remove 400 data per time

它在ets:select(Cont)是壞的ets:select(Cont) ，它不是在第一個或第二個循環中，但總是在那里。

有什么建議嗎？

 -record(item, {name, age}).
 %% start the table
 start() ->
 ets:new(example_table, [public, {keypos, 2},
 named_table,
 {read_concurrency, true},
 {write_concurrency, true}]).

 %% insert n demo data
 save(Limit) ->
 All = lists:seq(1 ,Limit),
 All_rec = [#item{name = {<<"demo">>, integer_to_binary(V)} , age = V} || V <- All],
 ets:insert(example_table, All_rec).

 %% remove all data, n data per select
 remove(Limit) ->
   M_head   = #item{name = '$1', _ = '_'},
 M_guards = [],
 M_result = ['$1'],
 M_spec   = [{M_head, M_guards, M_result}],

 case ets:select(example_table, M_spec, Limit) of
      '$end_of_table' ->
      0;
      {Keys, Cont} ->

      remove(example_table, Keys, Cont, 0, [])
      end.

      remove(Table, [],  Cont, Count, _Acc) ->

        case ets:select(Cont) of
          '$end_of_table' ->
            Count;
          {Keys, Cont_1} ->

            remove(Table, Keys,  Cont_1, Count, [])
        end;
      remove(Table,[Key | T],  Cont, Count, Acc) ->
        case ets:take(example_table, Key) of
          [] ->
       remove(Table, T,  Cont, Count, Acc);
          [Rec] ->
       io:format("Rec [~p] ~n", [Rec]),
       remove(Table, T,  Cont, Count + 1, [Rec | Acc])
        end.

堆棧跟蹤

     4> example_remove:save(6007).
      true
     5> example_remove:remove(500).
    ** exception error: bad argument
   in function  ets:select/1
    called as ets:select({example_table,304,500,<<>>,
                             [{<<"demo">>,<<"2826">>},
                              {<<"demo">>,<<"3837">>},
                              {<<"demo">>,<<"5120">>},
                              {<<"demo">>,<<"878">>},
                              {<<"demo">>,<<"1195">>},
                              {<<"demo">>,<<"1256">>},
                              {<<"demo">>,<<"1449">>},
                              {<<"demo">>,<<"5621">>},
                              {<<"demo">>,<<"5768">>}],
                             9})
 in call from example_remove:remove/5 (d:/workspace/simple-cache/src/example_remove.erl, line 47)

Answer 1

我相信這是因為你同時迭代表並修改它。

我建議使用safe_fixtable保護包裝主刪除周期

remove(Limit) ->
    ets:safe_fixtable(example_table, true),
    M_head   = #item{name = '$1', _ = '_'},
    M_guards = [],
    M_result = ['$1'],
    M_spec   = [{M_head, M_guards, M_result}],

    R = case ets:select(example_table, M_spec, Limit) of
        '$end_of_table' ->
            0;
        {Keys, Cont} ->
            remove(example_table, Keys, Cont, 0, [])
    end,
    ets:safe_fixtable(example_table, false),
    R.