ocaml - 如何将给定文件的全部内容读入字符串？

Question

我给定的文件 /path/file.txt 包含例如以下内容：

你好世界！
试着读懂我。

如何将整个内容读入代码中的一个字符串？
对于此特定示例，字符串应如下所示：

"Hello World!\nTry to read me."

标签： ocaml

Answer 1

如果您不想使用 Core，则以下内容适用于内置 Pervasives 模块中的函数：

let read_whole_file filename =
    let ch = open_in filename in
    let s = really_input_string ch (in_channel_length ch) in
    close_in ch;
    s