如何在 Erlang 中对字符串进行 XML 编码？

我有一个 erlang 字符串，其中可能包含 & "

1> Unenc = "string & \"stuff\" <".
ok

是否有一个 Erlang 函数可以解析字符串并对所有需要的 HTML/XML 实体进行编码，例如：

2> Enc = xmlencode(Unenc).
"string & "stuff" <".

?

我的用例是相对较短的字符串，这些字符串来自用户输入。 xmlencode 函数的输出字符串将是 XML 属性的内容：

<company name="Acme &amp; C." currency="&euro;" />

最终的 XML 将通过网络适当地发送。

Erlang 发行版中有一个函数可以转义尖括号和与号，但它没有记录在案，所以可能最好不要依赖它：

1> xmerl_lib:export_text("string & \"stuff\" <").
"string &amp; \"stuff\" &lt;"

如果您想要构建/编码 XML 结构（而不​​是仅仅编码单个字符串），那么 xmerl API 将是一个不错的选择，例如

2> xmerl:export_simple([{foo, [], ["string & \"stuff\" <"]}], xmerl_xml).
["<?xml version=\"1.0\"?>",
 [[["<","foo",">"],
   ["string &amp; \"stuff\" &lt;"],
   ["</","foo",">"]]]]