2

我试图在 ETS 中插入一个列表以便稍后退出，并且由于某种原因它说这是一个错误的参数。我不确定我是否插入不正确。

是不是不可能在 ETS 中插入一个列表？

违规行是ets:insert(table, [{parsed_file, UUIDs}]).

这是代码：

readUUID(Id, Props) ->
    fun () -> 
        %%TableBool = proplists:get_value(table_bool, Props, <<"">>),
        [{_, Parsed}] = ets:lookup(table, parsed_bool),
        case Parsed of
          true  ->
            {uuids, UUIDs} = ets:lookup(table, parsed_bool),
            Index = random:uniform(length(UUIDs)),
            list_to_binary(lists:nth(Index, UUIDs));
          false -> 
            [{_, Dir}] = ets:lookup(table, config_dir),
            File = proplists:get_value(uuid_file, Props, <<"">>),
            UUIDs = parse_file(filename:join([Dir, "config", File])),
            ets:insert(table, [{parsed_file, {uuids, UUIDs}}]),
            ets:insert(table, [{parsed_bool, true}]),
            Index = random:uniform(length(UUIDs)),
            list_to_binary(lists:nth(Index, UUIDs))
        end
    end.

parse_file(File) ->
  {ok, Data} = file:read_file(File),
  parse(Data, []).

parse([], Done) ->
  lists:reverse(Done);

parse(Data, Done) ->
  {Line, Rest} = case re:split(Data, "\n", [{return, list}, {parts, 2}]) of
                   [L,R] -> {L,R};
                   [L]   -> {L,[]}
                 end,
  parse(Rest, [Line|Done]).
4

2 回答 2

2

如果您使用类似的东西在同一个过程中创建表

ets:new(table, [set, named_table, public]).

那你应该没问题。默认权限受到保护，只有创建进程可以写入。

于 2014-12-19T08:24:17.037 回答
1

作为我对仅包含元组的 ets 表的评论以及ets:lookup/2在代码中返回以下行的内容的后续内容：

        {uuids, UUIDs} = ets:lookup(table, parsed_bool),

ets:lookup/2返回列表时将始终生成错误。上面的调用 3 行可能会成功。似乎您正在尝试table使用 key进行 2 次查找，parsed_bool并期望得到 2 种不同类型的答案：{_, Parsed}和{uuids, UUIDs}. 请记住，ETS 不提供键值表，而是提供元组表，其中一个元素（默认为第一个）是键，并且ets:lookup/2返回具有该键的元组列表。能取回多少取决于表的属性。

查看ETS 表的文档。

于 2014-12-21T16:33:42.223 回答