Question

如何从MongoDB转换元组

{'_id',<<"vasya">>,password,<<"12ghd">>,age,undefined}

到proplist

[{'_id',<<"vasya">>},{password,<<"12ghd">>},{age,undefined}]

Answer 1

假设你想基本上将元组的两个连续元素组合在一起，这不是太难。您可以使用element\2从元组中提取元素。并tuple_size\1来获取元组的大小。以下是处理此问题的几种方法：

1> Tup = {'_id',<<"vasya">>,password,<<"12ghd">>,age,undefined}.
{'_id',<<"vasya">>,password,<<"12ghd">>,age,undefined}
2> Size = tuple_size(Tup).            
6

您可以使用列表推导：

3> [{element(X, Tup), element(X+1, Tup)} || X <- lists:seq(1, Size, 2)].
[{'_id',<<"vasya">>},{password,<<"12ghd">>},{age,undefined}]

或者你可以拉链：

4> lists:zip([element(X, Tup) || X <- lists:seq(1, Size, 2)], [element(X, Tup) || X <- lists:seq(2, Size, 2)]).
[{'_id',<<"vasya">>},{password,<<"12ghd">>},{age,undefined}]

您可以通过制作拉出元素的功能来清理该拉链。

slice(Tuple, Start, Stop, Step) ->
    [element(N, Tuple) || N <- lists:seq(Start, Stop, Step)].

然后调用此函数：

5> lists:zip(slice(Tup, 1, Size, 2), Slice(Tup, 2, Size, 2)).
[{'_id',<<"vasya">>},{password,<<"12ghd">>},{age,undefined}]

Answer 2

您可以使用 bson：fields / 1 （https://github.com/mongodb/bson-erlang/blob/master/src/bson.erl#L52）。 bson 是mongodb erlang驱动程序的依赖项

Answer 3

或者你可以编写一个简单的函数来完成它：

mongo_to_proplist(MongoTuple) ->
    mongo_to_tuple(MongoTuple, 1, tuple_size(MongoTuple)).

mongo_to_proplist(Mt, I, Size) when I =:= Size -> [];
mongo_to_proplist(Mt, I, Size) ->
    Key = element(I, Mt),
    Val = element(I+1, Mt),
    [{Key,Val}|mongo_to_proplist(Mt, I+2, Size)].

这基本上是列表推导版本正在进行的操作，但已经解决了显式循环。

Answer 4

效率不高，所以不要在大型结构上使用它，但非常简单：

to_proplist(Tuple) -> to_proplist1(tuple_to_list(Tuple), []).

to_proplist1([], Acc) -> Acc;
to_proplist1([Key, Value | T], Acc) -> to_proplist1(T, [{Key, Value} | Acc]).

如果为了某些奇怪的原因，顺序应该在to_proplist1 / 2的基本情况下重要反转proplist。

将元组转换为proplists

4 个答案: