如何以追加方式在OCaml中打印到文件中？

目前我有一些这样的代码：

       method printFuncIntoFile X = 
          let funHead = "head"
          and funbody = "body"
          and oc = open_out "test.txt" in
          Printf.fprintf oc "%s%s" funHead funBody;
          close_out oc;
          foo X.child

此代码只能将最后一个函数内容保留在text.txt中

我搜索了Printf，但只能找到一个

val bprintf : Buffer.t -> ('a, Buffer.t, unit) format -> 'a

这需要缓冲区数据结构，我认为应该有一些更简单的策略，尽管我不知道

所以我的问题是：

---

如何以附加方式在OCaml中打印到文件？

您应该能够使用：

open_out_gen [Open_append; Open_creat] 0o666 "test.txt"

---

请注意，打开通道不是Printf的一部分，而是模块的一部分。

您应该能够使用：

open_out_gen [Open_append; Open_creat] 0o666 "test.txt"

---

请注意，打开通道不是Printf的一部分，而是模块的一部分。

您应该能够使用：

open_out_gen [Open_append; Open_creat] 0o666 "test.txt"

---

请注意，打开通道不是Printf的一部分，而是模块的一部分。

您应该能够使用：

open_out_gen [Open_append; Open_creat] 0o666 "test.txt"

---

请注意，打开频道不是Printf的一部分，而是模块的一部分。

这是否回答了您的问题？这回答了你的问题吗？这回答了你的问题吗？这回答了你的问题吗？