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

Question

目前我有这样的代码：

       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 document，但只能找到

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

这需要一个Buffer数据结构，我认为应该有一些策略更容易，即使我不知道

所以我的问题是：

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

Answer 1

你应该可以使用：

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

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