erlang - 如何在没有 ets 的情况下过滤 ETS 表 :select

Question

我有一个模块，可以在 ETS 表中存储一些数据 现在我试图过滤迭代 ETS 表的数据，但总是得到空的 [List]。 (这个每次都匹配 -matching('$end_of_table', Acc) -> Acc;)

-module(t).
-export([matching/0]).


matching() -> matching(ets:first(auth), []).
matching('$end_of_table', Acc) -> Acc;
matching(Key, Acc) ->
            FromSec = calendar:datetime_to_gregorian_seconds({{2017,1,12}, {11,00,00}}),
            ToSec = calendar:datetime_to_gregorian_seconds({{2017,1,12}, {12,00,00}}), 
    case ets:lookup(auth, Key) of
  [{Login, Pass, TTL, Unix, Unix2}] when Unix2 >= FromSec, Unix2 =< ToSec -> NewAcc = [{Login, Pass, TTL, Unix, Unix2}|Acc],
            N = ets:next(auth, Key),
                    matching(N, NewAcc);
  _ -> N = ets:next(auth, Key),
                    matching(N, Acc)
         end.

可能是我错误地创建了 ETS 表？

Answer 1

变量名称Unix和Unix2建议您存储 Unix 时间戳，即自 1970 年以来经过的秒数，但函数 calendar:datetime_to_gregorian_seconds返回自 0 年以来经过的秒数。(请参阅 documentation 。)因此您的比较 Unix2 >= FromSec, Unix2 =< ToSec永远都是假的。

日历模块使用偏移量?DAYS_FROM_0_TO_1970 * ?SECONDS_PER_DAY在两者之间进行转换，宏定义为:

-define(SECONDS_PER_DAY, 86400).
-define(DAYS_FROM_0_TO_1970, 719528).

例如参见 the implementation of calendar:now_to_datetime/1 .