不清楚[{a, b, {{c, d}}, 1}, {"a", "b", {{cat, dog}}, 2}...作为JSON会变成什么，但你可以看看jiffy或jsx，它们都处理简单的键/值结构。例如：

> Term = #{a => b, c => 1, <<"x">> => <<"y">>}.
#{a => b,c => 1,<<"x">> => <<"y">>}

> jiffy:encode(Term).
<<"{\"x\":\"y\",\"c\":1,\"a\":\"b\"}">>

> jsx:encode(Term).
<<"{\"a\":\"b\",\"c\":1,\"x\":\"y\"}">>

如果您能说出希望示例输入转换成什么JSON，我可能会给予您一个更好的建议。

只为你
你不需要把它 Package 在一个列表中，它接受一个元组参数，并返回一个json格式的字符串。

>Tuple = {{key, value}, { key2, {key3, [value1, 2,3]}}}.
>t2j:t2jp(Tuple).
{"key":"value", "key2, {"key3":["value1", 2,3]}}

库jsone相当不错，它可以在Map和元组之间进行转换：https://github.com/sile/jsone
我已经广泛使用它，它的 lightning 般的速度。
我发现的唯一问题是包含一个Map列表的Map会抛出一个错误。我希望这个问题得到解决，但也许我是唯一一个试图这样做的人。