从 ets table 中删除日期戳早于 10 秒的所有记录

Remove all the records from ets table having datestamp older than 10 seconds

我在 Elixir 应用程序中设置了 ets 集 table。我需要清理 updated_at 字段超过 10 秒的记录。有没有一种方法可以设置过期或手动设置而不遍历所有记录?我根据大于给定时间的时间戳匹配记录。

示例记录:

key: key_1
record: %{id: key_1, updated_at: ~N[2018-12-19 10:08:47.803075]}

到目前为止我有这个代码

def clean_stale(previous_key) do
  if previous_key == :"$end_of_table" do
    :ok
  else
    device = get(previous_key)
    next_key = :ets.next(__MODULE__, previous_key)
    if NaiveDateTime.diff(NaiveDateTime.utc_now, device.last_recorded_at) > 10 do
      remove(device.id)
    end
    clean_stale(next_key)
  end
end

如果将 "updated at" 时间存储为整数而不是 NaiveDateTime 结构,则可以使用匹配规范。

例如,获取当前时间作为自 Unix 纪元以来的秒数:

> DateTime.to_unix(DateTime.utc_now())
1545215338

你可以这样做:

iex(3)> :ets.new(:foo, [:public, :named_table])
:foo
iex(4)> :ets.insert(:foo, {:key1, DateTime.to_unix(DateTime.utc_now())})
true
iex(5)> :ets.insert(:foo, {:key2, DateTime.to_unix(DateTime.utc_now())})
true
iex(6)> :ets.tab2list(:foo)
[key2: 1545215144, key1: 1545215140]
iex(7)> :ets.select_delete(:foo, [{{:_, :""}, [{:<, :"", 1545215144}], [true]}])
1
iex(8)> :ets.tab2list(:foo)
[key2: 1545215144]

在对ets:select_delete/2, I pass a match specification的调用中。它由三部分组成:

  • 使用 {:_, :""},我对 table 中的记录执行匹配。在这个例子中,我有一个包含两个元素的元组。我忽略了带有 :_ 的键,并将时间戳分配给带有 :"" 的匹配变量。
  • [{:<, :"", 1545215144}],我指定我只想匹配时间戳在此时间之前的记录。在您的情况下,您将计算过去十秒的时间并将该值放在这里。
  • 使用 [true],我指定我想要 return true 来匹配记录,在 select_delete 的情况下意味着 "delete this record"。

所以在调用select_delete之后,table中只剩下第二条记录了。


如果时间戳在地图中,您可以使用map_get访问它并比较它:

:ets.select_delete(:foo, [{{:_, :""},
                           [{:<, {:map_get, :updated_at, :""}, 1545215339}],
                           [true]}])

或者(在 Erlang/OTP 18.0 及更高版本中)匹配映射值:

:ets.select_delete(:foo, [{{:_, #{updated_at: :""}},
                           [{:<, :"", 1545215339}],
                           [true]}])