删除& quote；和列表元素( erlang )

Question

我有一个记录列表，我希望将其显示为字符串，然后传递给XML属性：

Li = (get the record),

看起来像这样：

?INFO_MSG("LIST::::: ~p~n", [?SETS:to_list(Li)]),
[{"9993939","some.com",[]}, {"12341234","some.com",[]}]

我使用以下命令删除一些重复项：

Li = ?SETS:to_list(List)
Set = sets:from_list(Li)
O = sets:to_list(Set)

在此之后，我使用io_lib:format来获取我的最后一个字符串：

OO = io_lib:format("~p", [O])

但是当我将它提供给XML时，它附带了& quote；字符，

"[{& quote;9993939& quote;,& quote;some.com& quote;,[]},{&
quote;12341234&& quote;,& quote;some.com& quote;,[]}]"

如何删除这些字符？

实际上我的最终目标是

从这个开始：

"[{"9993939","some.com",[]}, {"12341234","some.com",[]}]"

仅获取列表中的数字：

"[9993939,12341234]"

Answer 1

你的问题很模糊...很难理解，但这是你想要的吗？

-module(vague).
-compile(export_all).

extract(Li)->
    [Element || {ok, [Element],[]} <- [io_lib:fread("~d", Projection) ||
                                          {Projection, _, _} <- Li]].


1> vague:extract([{"9993939","some.com",[]}, {"12341234","some.com",[]}]).
   [9993939, 12341234]