serialization - term_to_binary 的字符串版本

Question

我正在尝试编写一个简单的服务器，通过 tcp 与客户端通信。我让它可以很好地发送消息，但现在我希望它将消息解释为 Erlang 数据类型。例如，假装它类似于 HTTP(实际上不是)并且我想从客户端发送 {get, "/foo.html"} 并让服务器将其解释为包含原子的元组和一个列表，而不仅仅是一个大列表或二进制。

我可能最终会使用 term_to_binary 和 binary_to_term，但是调试基于文本的协议(protocol)要容易得多，所以我希望找到一个更适合列表的版本。有没有人藏在某处？

Answer 1

您可以通过以下方式将字符串解析为表达式(类似于 file:consult):

% InputString = "...",
{ok, Scanned, _} = erl_scan:string(InputString),
{ok, Exprs} = erl_parse:parse_exprs(Scanned),
{value, ParsedValue, _} = erl_eval:exprs(Exprs, [])

(参见 http://www.trapexit.org/String_Eval)

您应该能够使用 io_lib:format 将表达式转换为使用 ~w 或 ~p 格式代码的字符串，例如 io_lib:format("~w", [{get, "/foo.html"}])。

我不认为这会很快，所以如果性能是一个问题，你可能不应该使用这样的字符串。

另请注意，这可能是不安全的，因为您正在评估任意表达式——如果您走这条路，您可能应该对中间输出进行一些检查。我建议查看 erl_parse:parse_exprs 的结果以确保它包含您感兴趣的格式(即，它始终是 {atom(), list()} 的元组)没有嵌入式函数调用。您应该能够通过模式匹配来做到这一点。