1

Доброго времени суток. Разбираюсь с ETS таблицами в Erlang

Хочу проверить таблицу перебором, и проверить каждую запись (время по юниксу). Не хочу использовать матчинг (ets:select(food, ets:fun2ms(fun(N = #food{calories=C}) when C < 600 -> N end)).)

Вместо этого пробую проверять через ets:next функцию. При этом данная функция возвращает только ключь записи, чего не достаточно для дальнейшей проверки.

Подскажите, или покажите где можно найти информацию о том как получить полные данные строки в таблице через ets:new / ets:first / ets:last

Может я вообще изначально не правильно создаю таблицу ets:new(auth, [ordered_set]).

Eugen Dubrovin
  • 195
  • А можете описать задачу, а не решение? – Mikhail Vaysman Jan 12 '17 at 08:40
  • Нужно удалять старые записи из ETS методом перебора каждой записи, а не через ets:select – Eugen Dubrovin Jan 12 '17 at 08:48
  • старые по времени? Или есть другой критерий старости? – Mikhail Vaysman Jan 12 '17 at 08:49
  • Да, при инсерте в таблицу - я записываю вместе с данными еще текущее время + время жизни записи (в юникстайм) – Eugen Dubrovin Jan 12 '17 at 08:51
  • 1
    А если писать не время жизни, а время кода запись уже недействительна? Тогда будет проще фильтровать. – Mikhail Vaysman Jan 12 '17 at 08:55

1 Answers1

0

Решение найдено.

FromTime / ToTime - {{2017,1,13},{14,15,11}} переводим в datetime_to_gregorian_seconds сначала

FromSec = calendar:datetime_to_gregorian_seconds(FromTime),
ToSec = calendar:datetime_to_gregorian_seconds(ToTime),

Дальше вызываем функцию - lookup_by_date(FromTime, ToTime)

Код:

lookup_by_date(FromTime, ToTime) -> lookup_by_date(FromTime, ToTime, ets:first(auth), []).
lookup_by_date(_FromTime, _ToTime, '$end_of_table', Acc) -> {reply, Acc, ok};
lookup_by_date(FromTime, ToTime, Key, Acc) ->
    case ets:lookup(auth, Key) of
        [{Login, Pass, TTL, Unix, Unix2}] ->
            F = calendar:datetime_to_gregorian_seconds(Unix2),
        T = calendar:datetime_to_gregorian_seconds(Unix2),
        if
            F >= FromTime, T =< ToTime -> NewAcc = [{Login, Pass, TTL, Unix, Unix2}|Acc],
        N = ets:next(auth, Key),
            lookup_by_date(FromTime, ToTime, N, NewAcc);
        true -> N = ets:next(auth, Key),
                    lookup_by_date(FromTime, ToTime, N, Acc)
         end
        end.
Eugen Dubrovin
  • 195