erlang - 将字符串转换为趣味

Question

我正在尝试解决file:consult/1的问题，不允许像这样的示例那样在其中包含元组的乐趣:

{add_one, fun(X) -> X+1 end}.

为了解决这个问题，我正在考虑在字符串中编写乐趣并对其进行评估

{add_one, "fun(X) -> X+1 end"}.

问题是。如何将字符串转换为有趣的字符串？

Answer 1

parse_fun_expr(S) ->
  {ok, Ts, _} = erl_scan:string(S),
  {ok, Exprs} = erl_parse:parse_exprs(Ts),
  {value, Fun, _} = erl_eval:exprs(Exprs, []),
  Fun.

请注意，在您的有趣表情的结尾需要一个句点，例如 S = "fun(X) -> X + 1 end."。